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ABSTRACT: 

MOOESRCH  is  a FORTRAN  computer  program  designed  to  obtain  rapidly,  eco- 
nomically, and  accurately,  the  mode  constants  needed  to  describe  propagation 
in  the  earth-ionosphere  waveguide  at  ELF,  VLF  anu  lF  (10  Hz  to  60  kHz).  It  is 
suggested  that  MODESRCH,  along  with  required  mode  sunming  procedures,  be  used 
to  replace  "waveguide"  and  "wave-hop"  codes  currently  used  in  network  analysis 
programs  which  cover  the  ELF  to  LF  frequency  bands.  This  report  contains  a 
discussion  of  the  analytical  approach  taken  in  MODESRCH,  a FORTRAN  listing  of 
the  program,  instructions  for  using  the  program  and  some  sample  calculations. 


INTRODUCTION 

Radio  field  strengths  at  ELF,  VLF  and  LF  (10  Hz  to  about  60  kHz)  are 
usually  calculated  using  procedures  based  on  either  normal  mode  theory  (ref- 
erence 1)  or  on  a semi-geometrical  optics  approach  (reference  2). 

Normal  mode  theory  treats  the  field  as  being  composed  of  one  or  more 
discrete  families  (modes)  of  plane  waves  confined  to  the  natural  waveguide 
bounded  by  the  earth  and  the  ionosphere.  The  number  of  waveguide  modes 
needed  to  adequately  represent  the  field  is  proportional  to  the  earth-iono- 
sphere separation  measured  in  radio  wavelengths.  Thus,  only  a single  mode 
is  required  below  3 kHz,  about  ten  to  fifteen  modes  at  30  kHz,  and  as  many 
as  twenty-five  modes  may  be  important  at  60  kHz.  The  propagation  parameters 
for  each  mode  depend  on  the  characteristics  of  the  earth  and  the  ionosphere, 
and  are  independent  of  the  relative  positions  of  the  transmitter  and  receiver. 
For  a homogeneous  waveguide,  once  all  of  the  important  modes  have  been  found, 
the  radio  fields  can  be  determined  >;s  a function  of  distance  by  a simple  mode 
summing  calculation. 

Computer  programs  based  on  waveguide  mode  theory  have  been  brought  to 
a high  degree  of  sophistication  and  versatility  in  recent  years,  making  it 
possible  to  calculate  fields  for  any  antenna  configuration  at  any  altitude, 
for  both  vertically  and  horizontally  polarized  waves,  and  for  inhomogeneous 
waveguides.  Unfortunately,  solutions  to  the  modal  equation  cannot  be  deter- 
mined explicitly.  Instead,  the  complex  angles  of  incidence  at  the  waveguide 
boundaries,  which  uniquely  identify  each  mode,  must  be  determined  by  iterative 
techniques.  At  frequencies  above  about  30  kHz,  where  there  is  a large  number 
of  modes  to  be  found,  the  mode  finding  procedure  of  reference  1 may  miss  some 
solutions  and  it  has  taken  human  judgment  to  determine  if  the  set  of  modes 
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fouid  was  complete.  If  the  set  of  modes  was  judged  incomplete,  new  initial 
conditions  had  to  be  resubmi ; ted  to  the  computer  in  an  attempt  to  compute  the 
missing  modes,  resulting  in  additional  computer  and  manpower  costs.  Systems 
analysis  codes  do  not  allow  human  intervention,  and  so  they  have  not  been  able 
to  rely  on  mode  theory  when  a sizeable  number  of  modes  is  needed  to  represent 
the  radio  fields. 

Previous  practice  nas  been  to  compute  radio  fields  at  frequencies  below 
30  kHz  using  waveguide  mode  theory  and  to  use  a wave-hop  theory,  such  as  de- 
scribed in  reference  2,  for  computing  fields  at  and  above  30  kHz.  The  waye- 
hop  procedure  considers  the  total  field  at  the  receiver  to  be  composed  of  a 
groundwave  component  and  a number  of  skywaves  following  unique  geometric  ray 
paths  connecting  the  transmitter  and  receiver  with  Intermediate  reflections 
off  the  earth  and  the  ionosphere.  Calculations  of  radio  field  strength,  using 
the  wave-hop  procedure  of  reference  2,  agree  well  with  waveguide  mode  calcula- 
tions for  horizontally  homogeneous  normal  ionospheres.  They  do  not  agree  for 
severely  depressed  ionospheres  over  low  conductivity  ground. 

The  wave-hop  approach  has  features  which  make  it  somewhat  inconvenient 
for  system  analyses.  For  each  separation  distance  between  transmitter  and 
receiver  there  is  a unique  ray  geometry.  Thus,  for  calculations  of  fields  as 
a function  of  distance;  e.g.,  for  aircraft  operations,  certain  inherent  calcu- 
lations must  be  repeated  many  times.  Also,  for  inhomogeneous  waveguides  such 
as  across  day-night  ionospheric  gradients  or  across  nuclear-induced  ionospheric 
depressions,  the  geometry  is  ill-defined  and  the  calculations  tend  toward 
approximations. 

Aside  from  the  limitations  of  either  the  waveguide  approach  or  the  wave- 
hop  approach  to  long-wave  propagation  prediction,  it  would  be  advantageous  to 
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use  a single  method  across  the  entire  ELF,  VLF,  LF  frequency  bands.  Systems 
codes  used  for  network  analyses  would  be  considerably  reduced  in  size,  saving 
computer  costs.  Comparisons  of  systems  performance  as  a function  of  frequency 
would  be  more  meaningful  if  a single  propagation  theory  were  Invoked. 

The  MODESRCH  computer  program  described  in  this  report  has  the  required 
ability  to  compute  waveguide  mode  constants  rapidly,  economically  and  accur- 
ately over  the  frequency  band  of  interest.  MODESRCH  contains  all  of  the  basic 
features  of  the  previously  reported  waveguide  mode  computational  procedures  of 
reference  1 and  several  important  additions.  The  new  additions  virtually 
guarantee  that  all  waveguide  modes  of  Importance  will  be  found  at  any  frequency 
up  to  at  least  60  kHz.  MODESRCH,  usod  with  presently  available  mode  summing 
techniques, will  provide  the  radio  fields  required  for  systems  analysis. 

This  report  describes  the  MODESRCH  theory.  It  also  contains  a listing 
of  the  FORTRAN  program,  instructions  for  the  user,  and  examples  of  MODESRCH 
calculations,. 


II. 


DISCUSSION  OF  MODESRCH  PROCEDURE 


A.  General  Background 

In  the  propagation  of  ELF,  VLF  and  LF  terrestrial  radio  waves  to 
great  distances,  the  waves  are  confined  within  the  space  between  the  earth  and 
the  ionosphere.  This  space  acts  as  a waveguide,  and  the  "waveguide  concept"  is 
applicable  for  characterizing  the  propagated  fields  as  a function  of  distance. 

The  energy  within  the  waveguide  is  considered  to  be  partitioned 
among  a series  of  modes.  Each  mode  represents  a resonant  condition;  i.e.,  for 
a discrete  set  of  angles  of  incidence  of  the  waves  on  the  ionosphere,  resonance 
occurs  and  energy  will  propagate  away  from  the  source.  The  complex  angles  (0) 
for  which  this  occurs  are  called  the  eigenangles.  They  may  be  obtained  us- 
ing the  'full -wave1  procedures  described  in  reference  1 by  solving  the  de- 
terminantal  equation 

F,(6)  - I |d  (9)  ^ (9)  - II  =0  (1) 


where  R^(0)  = 


llRll<j(e)  lR»d(0) 


(2) 


[llRld(0)  lRld(0)J 

is  the  complex  ionospheric  reflection  coefficient  matrix  looking  up  into  the 
ionosphere  from  height  "d"  and 


llRlld(0)  0 
0 iRld(B) 


is  the  complex  reflection  matrix  looking  down  from  height  "d"  towards  the 
ground. 


(3) 


Note:  Any  variable  "A"  denoted  by  A in  this  report  implies  a matrix. 
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The  complex  angle,  0,  is  the  angle  of  incidence  at  height  z = H where  the  modi- 
fied index  of  refraction  given  by 

n2  = 1 - a(H  - Z)  = 1 - | (H  - Z)  (4) 

re 

is  unity.  Here  rg  is  the  radius  of  the  earth. 

The  notation  II  for  the  R ' s and  TT's  denotes  vertical  polarization  while 
the  notation,  1 , denotes  horizontal  polarization.  The  first  subscript  on  the 
R's  refers  to  the  polarization  of  the  incident  wave  while  the  second  applies 
to  the  polarization  of  the  reflected  wave. 

To  find  solutions  of  (1)  for  the  eigenangles,  9,  the  well  known 
Newton-Raphson  method  may  be  used.  The  procedure  is  to  guess  a solution  0O  to 
the  equation  F](e)  = 0.  The  function  F-|(0)  is  then  reevaluated  for  0O  + 80  and 
the  correction  to  0Q  found  from  the  equation 

Fi (0o)60  (5) 

AQ  F-|  (0Q  + 80)  - F}  (0O)» 

The  correction  determined  by  (5)  is  then  evaluated  and  the  process  repeated  un- 
til the  quantities  | and  j ^-j|  are  reduced  to  within  a preassigned  tolerance. 
The  subscripts  r and  i denote  the  real  and  imaginary  parts,  respectively.  The 
final  solution  for  mode  "n"  is  then  given  by 

CO  = + ^n  j = 1,  2,  3,  . . . (6) 

n j P J-l 


B.  Introduction  to  MODESRCH  Theory 

The  "MODESRCH"  procedure  also  obtains  the  full-wave  solution  of 
equation  1 in  terms  of  the  eigenangles.  In  tnis  case;  however,  the  R and  R 
terms  are  modified  in  order  to  make  simpler  equations. 
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The  basic  premise  of  the  MODESRCH  theory  is  to  modify  the  function  F-j  (e ) so 
that  it  contains  no  poles  and  then  in  this  form,  apply  a newly-developed  root- 
finding algorithm  to  obtain  the  complete  set  of  eigenangles. 

In  particular,  the  F-] (G ) equation  of  reference  1 becomes  upon  modifi- 
cation (see  Appendix  A): 

F3(0)=(nninilindii)  (ini  - iKiidi)  - iiliilii  ndiidii  (7) 

where  X = (R  + 1 )/c  (8) 

and  c = cosG  (0  = complex  angle  of  incidence) 
or  ||.X;|=  ( ||Rp  + l)/c 


#Al=  |Ri/c 
lAir  irii/c 
iXr  (iRi  + D/c 


(9) 


and  n d_1  = (Rf1  + l)/c 


or 


nnil 


iirii  + ^ 


•idn 


— l/c 

iirii  ' 

xnx  _ (A  + ^ 


(10) 


I3! 


/c 


^ XRX 

The  modified  variables: 


(?)  (v) 

are  related  to  making  simpler  equations  in  the  'MODESRCH'  Drocedure  and  in 
removing  the  zeros  in  F^(0)  at  0 = 90° . The  functions  F-|(0)  and  F^(0)  are  not 
the  same,  but  except  for  the  point  where  0=9OP , ttKy  have  the  same  zeros. 

The  solutions  to  the  modal  equation;  ( i.e.,  equation  7)  for 
F3(e)=0  are  the  complex  eigenangles  (e)  needed  to  obtain  the  mode  constants 
(e.g.,  phase  velocity,  attenuation  rate,  and  excitation  factor)  which 


Note:  From  this  point  on,  let  F3(0)  be  denoted  by  F(0)  for  convenience. 
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are  the  parameters  of  interest  in  computing  field  strengths.  The  total  field 
at  any  point  along  the  guide  may  be  computed  from  the  vector  sum  of  the  con- 
tributions from  each  individual  mode. 

As  in  reference  1,  the  MODESRCH  procedure  requires  that  the  upper  bound- 
ary of  the  waveguide  be  assigned  arbitrary  electron  and  ion  density  distri- 
butions with  height  as  well  as  variable  collision  frequency  profiles  with 
height.  Allowance  is  also  made  for  the  anisotropy  of  the  ionosphere.  The 
lower  boundary  of  the  guide  is  taken  to  be  a smooth  homogeneous  earth  charac- 
terized by  an  adjustable  conductivity  and  permittivity.  Earth  curvature  is 
also  included  via  the  artifice  of  the  modified  refractive  index  (e.g.,  Equa- 
tion (4)). 

The  (X,Y,Z)  coordinate  system  used  is  such  that  Z is  directed  into  the 
ionosphere,  the  X-Z  plane  is  the  plane  of  propagation,  and  invariance  in  the 
Y-axis  is  assumed. 

C.  General  Steps  in  the  Solution  of  the  Modal  Equation 

(1)  For  VLF/LF  cases  the  input  electron  and  ion  density  profiles 
vs  heignt  are  modified  by  eliminating  those  heights  above  which  and  below 
which  tne  corresponding  particle  densities  will  have  negligible  effects  on 
the  modal  solutions.  For  ELF  cases,  profiles  are  not  cutoff  at  the  top  or 
the  bottom  heights  but  instead  the  complete  input  profile  is  used  in  subse- 
quent calculations. 

(2)  The  modal  solutions  of  Equation  (7),  the  complex  eigenangles 
(0  = 9real  + ^imaginary)*  are  determined  within  a bounded  region  of  the  com- 
plex 'THETA"  plane  defined  by  a set  of  limiting  THETA  values.  This  bounded 
region  will  be  called  the  "contour  rectangle"  and  the  limiting  THETA  values 
are  denoted  by  the  corners  of  the  rectangle  (e.g.,  A,B,C,  and  D).  These  par- 
ameters are  portrayed  in  Figure  1. 
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COMPLEX  THETA  PLANE 


Figure  1.  The  Contour  Rectangle  ABCD 


(3)  Four  fixed  angles  (0T.j,  i=l ,2,3,4)  are  chosen  in  the  complex 
THETA  plane.  These  angles  are  somewhat  outside  the  corners  A,B,C,  and  D of  the 
contour  rectangle.  For  VLF  and  LF  calculations  these  angles  are  the  g<ven 
values  of  d ai  which  full-wave  solutions  are  to  be  carried  out  for  use  in  a 
Lagrange  interpolation  procedure.  At  ELF  (e.g.,  < 1000  Hz)  the  purpose  of 
these  angles  is  to  identify  the  location  of  the  contour  rectangle  in  the  THETA 


piane. 


(4)  At  VLF  and  at  LF,  the  differential  equations  for  the  ionospheric 


terms  Y(G)  are  integrated  at  the  angles  oT^,  to  give  full -wave  values  of  X(0T-j) 
at  the  base  of  the  modified  electron-ion  density  profiles.  The  results  obtained 
by  integrating  to  the  bottom  of  the  profile  (e.g.,  Z=Z^)  will  be  designated  as 

2b(0Ti)* 

(5)  For  VLF/LF  cases  a further  upward  integration  of  the  X.(0Tn-) 
equations  from  the  height  Zj-,  to  a reference  height  1 d 1 is  then  performed  assum- 
ing a free  space  environment  over  a curved  earth.  This  reference  height  may 
be  taken  to  be  an  effective  reflection  height.  At  this  height  there  will  be 
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no  poles  in  the  function  X(e)  for  the  region  of  interest  in  the  complex  THETA 
plane.  The  determination  of  this  height  is  important  because  the  general  root- 
finding algorithm  used  to  locate  the  zeros  of  F(0)  requires  that  there  be  nc 
poles  in  the  vicinity  of  the  zeros  to  be  found.  This  reference  height  is  also 
appropriate  for  performing  Lagrange  interpolation  on  the  function  X"(0) . 

(6)  At  the  reference  height  1 d ' , for  VLF  and  LF,  the  contour  rec- 
tangle is  subdivided  into  small  mesh  squares.  The  value  of  F(e)  at  each  cor- 
ner of  each  mesh  square  is  determined  by  Lagrange  interpolation  of  J[Q)  based 
on  the  given  values  of  i ) - 

Recall  from  Equation  (7)  that  the  function  F(0}  is  computed  from  Y(0),  n(0) 
and  d(6)  so  that  for  any  angle,  0j  the  value  of  X(ej)  is  found  from  the 
Lagrangian  interpolation  of  X(0T-j,  i=l,2,3,4)  whereas  n(0,-)  and  jd(e.)  are  calcu- 
lated  directly. 

(7)  For  ELF  (e.g.,  <1000  Hz),  the  angles  used  in  the  full -wave  inte- 
gration of  the  J(Q)  equation  consists  of  the  usual  corners  of  the  contour  rec- 
tangle  plus  all  additional  angles  formed  from  the  four  corners  of  each  mesh 
square  into  which  the  contour  rectangle  is  also  divided.  In  this  case  the 
integration  is  extended  downward  to  the  earth's  surface  (e.g.,  Z=0)  and  no 
further  integration  back  up  to  the  height  1 d ' is  done.  No  Lagrangian  inter- 
polation is  involved  since  the  full-wave  solution  is  computed  for  all  angles 

of  interest  to  the  problem.  It  is  important  to  realize  at  this  point  that  the 
MODESRCH  procedure  has  not  been  formulated  so  as  to  eliminate  the  poles  for 
ELF  cases.  This  may  result  in  no  solution  being  found  to  the  modal  equation 
due  to  the  presence  of  poles.  Because  of  this  result,  it  may  be  advisable  to 
compute  modes  for  the  ELF  cases  by  the  methods  of  reference  1.  This  problem 
has  not;  however,  occurred  in  practice. 


r^Tj"*' : * 


(8)  The  zeros  of  F(0)  at  'd1  for  VLF/LF  (or  at  'O'  for  ELF  are 
then  found  by  applying  the  root-finder  algorithm  to  the  mesh  squares. 

(S)  Since  F(0),  as  determined  from  step  (8)  is  approximate,  the 
exact  solution  of  F(0)  is  then  obtained  by  applying  the  usual  Newton- 
Raphson  procedures  where  the  full-wave  solution  is  used  to  obtain  X(0) 

(10)  With  the  determination  of  the  exact  solutions  of  the  0's 
(eigenangles) , the  required  mode  constants  and  excitation  factors,  may  be 
calculated. 

0.  Optimization  of  Input  Ionospheric  Density  Profiles 

Computing  efficiency  for  VLF  and  LF  may  be  improved  by  cutting 
off  the  top  and  bottom  heights  of  the  input  profile. 

(1)  Exponential  Profiles  (electrons  only) 

An  exponential,  electrons  only,  ionospheric  profile  may  be 
specified  as  input  to  the  MODESRCH  procedure.  The  profile  is  computed  as 
described  in  Wait's.  NBS  TN  300,  reference  3,  where 

0V(z)  = 2.5X105  exp[p(z-h']  = 3.18254X109  N(z)/v(z)  (11) 

and  p is  in  inverse  kilometres,  z and  h'  are  in  kilometres,  N(z)  is  the 
electron  density  in  electrons  per  cubic  centimetre  and  v(z)  is  the  colli- 
sion frequency  in  collisions  per  second.  The  exponential  collision  fre- 
quency is  given  in  reference  3 as 

v(z)  = 1.86* 1011  • exp(-0.15z)  (12) 

The  top  of  the  profile  may  be  modified  by  choosing  a value  for  the  variable 
SCLHTS.  The  relationship  is  that: 

Top  Height  = Integer  (ri:  + + 0*5)  (13) 

The  nearest  integral  value  of  altitude  as  given  by  'Top  Height'  is  used  to 
set  the  top  of  the  profile.  All  heights  above  this  value  are  neglected  in 
the  MODESRCH  computations. 
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The  bottom  of  the  exponential  profile  is  set  by  assigning  a minimum 
value  (i.e.,  ENMIN ) of  electron  density  in  electrons/cm3.  All  altitudes, 
at  which  the  corresponding  density  is  less  than  the  value  of  ENMIN,  will  be 
neglected. 

( 2 ) VLF/LF  - Tabular  Electron-Ion  Density  Profiles 

When  the  particle  density  profiles  are  in  tabular  form, 
the  top  and  bottom  of  the  profile  may  te  cut  off  using  the  following  cri- 
teria, as  presented  in  reference  4.  Here  the  particle  profiles  may  consist 
of  ions  as  well  as  of  electrons. 

The  (isotropic)  squared  index  of  refraction  is  written  as: 

(14) 


(15) 


where 


or 


n2(z)  = 1 - A - jB 


A = Ae  + A+  + A_ 
5e 


B = B„  + B+  + B. 


A = 


Nee< 


,2 


N e 


Mee0[o)2+ve2]  M+e0[u)2+v+2]  M_e0(co2+v_2] 


A_ 


and 


B = !eAp  + L+A+  + !iA.  (16) 

with  the  identification  that 

vg  = electron-neutral  particle  cr^ision  frequency  (s-^) 
v+  = positive  ion-neutral  particle  collision  frequency  (s'^) 

v_  = negative  ion-neutral  particle  collision  frequency  (s-^) 

Ne  = electron  density  (cm-3) 

N+  = positive  ion  density  (cm'3) 

N_  = negative  ion  density  (cm-3) 


n 


to  = frequency  (radians  s-1) 
me  = mass  of  the  electron  (kg) 
m+  = mass  of  the  positive  ions  (kg) 
m_  = mass  of  the  negative  ions  (kg) 
e0  = permittivity  of  free  space 

The  top  part  of  the  ionospheric  profile  which  may  be  neglected  in 

the  calculations  is  defined  as  that  altitude(z)  above  which: 

B(z)  > Maximum  (TEMPO-B,  20  S2-)  (17) 

ve 

where  'TEMPO-B'  is  assigned  a value  (e.g.,  2.0). 

An  additional  requirement  for  cutting  off  the  top  of  the  profile  is 
that  the  electron  density  must  be  as  great  as  ' TOPEN ' . The  variable  ' TOPEN 
is  assigned  a value  (e.g.,  1000  electrons/cm2).  The  top  of  the  profile  is 
taken  to  be  the  higher  of  the  two  heights  corresponding  to  ' B ' (equation 
(17))  and  to  'TOPEN'. 

The  bottom  of  the  input  ionospheric  profile  is  neglected  (for  VLF/LF 
cases)  at  those  altitudes  for  which  the  computed  value  of  B in  equation 
(16)  is  less  than  'CUTOFF'.  The  variable  'CUTOFF'  is  assigned  a value  (e.g 
0.0001).  The  relationship  for  cutoff  is: 

B(z)  < CUTOFF  (18) 

(3)  ELF  Tabular  Electrcn-Ion  Density  Profiles 

In  the  case  of  ELF  the  profile  top  and  Lottom  are  not  cut 
off  and  the  complete  profile  is  used  in  the  calculations. 

E.  Integration  of  the  Differential  Equations  for  J - (R  + 1)/C 

Through  the  Ionosphere 

The  differential  equations  for  the  ionosphere  reflection  matrix, 
R,  are  given  in  reference  5. 
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The  differential  equations  are  of  the  form 

dR/dz  = - ik/2js<21)  + s(22)r  - RSf-n)  - R$(12)rJ  (19) 

where  z is  the  height  variable  and  are  2X2  partitions  of  a 4 X 4 


matrix  given  by: 


S = 


Tll  + T4  4+Tu/C+CT41 

-t12/c-t42 

-t11+t44+t14/c-ct41 

-t12/c-t4; 

-t31-t34/c 

c+t32/c 

T3i-T34/C 

-c+t32/c 

-Tu+T44-T14/C+CT41 

t12/c-t42 

^n+^44  “Ti4/C"CT41 

t12/c-t42 

To  x +T3  4 /C 

c-t32/c 

-T3i+T34/C 

-c-t32/c 

(20) 


where 

C = cos  0 

0 = complex  angle  of  incidence  (deg). 

The  intermediate  matrix  T relates  the  electromagnetic  field  components  to 
their  derivatives.  In  turn,  T is  defined  in  terms  of  the  susceptibility 
matrix  M: 


(21) 


where  T is  defined  as 
L SMsA 

\ 1+^3  3 / 

(0) 


T = 


SM. 


'3  2 


,1+ft,- 


'3  3 


^+M33/ 

(0) 

fcZ+^ : 


3 2 


i+m3: 


(0) 

(1) 

(0) 


^c2+m 


3 3 


J+H.3  , 
(0) 
SM23\ 


,1+W 


3 3 , 


( +M, , 


i i • 

L\ 


where  S = sin  (e), 


Hi,",  A 

1+M3  3 j 


I ^3  2 ^1  3 _ 


\ ITU  3 


(0)  (JUil) 

' ' 1 1 +M.  , / 

V "V 


(22) 


f 


13 


v- 


Finally,  the  susceptibility  M matrix  is  defined  as 
(U2-£2Y2-2(H-z)/r  ) (-jUnY~£mY2) 


M = 


-P 


U(U2-Y2) 


(jUmY-£nY2) 


(jUnY-fimY2)  (U2-m2Y2-2(H-z)/re)  (-jU£Y-mnY2) 


(-jUmY-£nY2) 


(jU£Y-mnY2) 


(ll2-n2Y2-2(H-z)/re) 


(23) 


where 

3 = -1 
P = (cc^/co)2 
U = 1 - j(v/oo) 

Y = p0c^/cjo  henrys 
ci^  = magnetic  gyrofrequency  (s-^) 

= plasma  frequency  (s-1)  (24) 

£ = cos  eD  cos  cpa 
m = cos  9q  sin 
n = -sin  eD 

v = collision  frequency  (s-1) 
to  = wave  frequency  (s-^) 
p0  = free  space  permeability  (henrys/m) 

0Q  = magnetic  dip  angle  (deg) 
re  = earth's  radius  (km) 

H = altitude  where  the  index  of  refraction  is  unity  (km) 
q>a  = direction  of  propagation  east  of  magnetic  north  (deg) 
z = altitude  (km) 

The  matrix  M described  above  is  general  in  that  it  represents  a single 
ionospheric  constituent.  Three  species  are  considered  by  this  model: 
electrons  and  positive  and  negative  ions.  Thus  for  each  species  there  will 
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be  a matrix  and  trie  .idtrix  elements  needed  for  computing  the  7 matrix 

elements  are  found  from: 

3 


:E  Mi 

%V 


(25) 


Earth  curvature  terms  have  been  added  to  the  diagonal  elements  of  M,  by 
the  terms  -2 \r,~z)/rQ. 

Equation  (19)  may  be  rearranged  to  form  the  following  differential 
equations  for  X =(R  + 1)/C,  (see  Equation  (8)),  giving: 
dX  -ik 

37=T"  ^ + 5A  + AC  + XpX  (26) 

where  k is  the  wave  number,  z is  height,  and 

A = (S21  - S22  + S11  - S12)/C  = (^4T41  °\  (27) 

\ 0 4/ 


C = -S' ' + -s 


•2  = 2 

II 

o 

-T42 

\ 0 

-c> 

12  = 2 

A,  - ct41 

O' 

\ T31 

-c, 

\ 


(28) 

(29) 


/C(Tn-Tl4)  - Ti4+C2T4i  ! Tu  + CT4A  , 4 

D =-C  S12  = [ h ) (30) 

\ - CT3i  + T3 4 | C2  - T32  / 

Equation  (26)  may  be  integrated  numerically  by  the  Runge-Kutta  method. 
The  integration  is  carried  out  ir.  the  direction  of  decreasing  ionospheric 
height.  Error  testing  is  based  on  comparing  the  results  of  integrating 
through  a height  interval  with  one  Runge-Kutta  step  with  the  result  of  in- 
tegrating through  the  same  height  interval  using  two  steps.  If  the  differ- 
ence is  greater  than  a specified  tolerance,  the  step  size  in  that  interval 
is  cut  in  half.  The  initial  set  of  integration  steps  is  taken  to  be  the 
input  profile  segments.  However,  the  integration  steps  used  in  one  inte- 
gration are  taken  to  be  the  initial  set  of  steps  for  the  next  integration. 
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Note  that  since  the  elements  of  Y(0)  are  complex,  the  integration  is  that 
of  eight  real  coupled  differential  equations  for  the  real  and  imaginary 
parts  of  the  elements  of  J(Q). 

The  classical  procedure  of  assuming  a semi-infinite  homogeneous  iono- 
sphere at  the  top  of  the  profile  is  followed.  The  solution  for  reflection 
from  this  semi-infinite  medium  is  taken  from  reference  6 and  is  used  as 
the  starting  solution  for  the  integration. 

This  method  of  integration  is  identified  as  the  "full-wave"  proce- 
dure for  obtaining  ionospheric  reflection  coefficients.  The  values  ob- 
tained from  the  integration  are  denoted  as  X(0Tj)b>  where  z=b  is  the  lower 
cutoff  height  of  the  integration. 


F.  Integration  of  X = (R  + 1)/C  Through  Free  Space  Over  a Curved 

W MW  MW 

Earth 

As  was  stated  in  Section  II,  C-5,  the  general  root-finding 
algorithm  used  to  locate  the  zeros  of  F(9)  requires  that  there  be  no  poles 
in  the  vicinity  of  the  zeros  to  be  found.  This  requires  that  there  be  no 
poles  in  J = (R  + 1)/C  in  this  region  of  the  9-plane.  This  can  be  assured 
by  integrating  J from  the  boitom  of  the  profile  upward  through  free-space 
over  a curved  earth  to  an  effective  "reflection  height",  defined  by  the 
condition 


4 

z 


4 

E. 


1 1 
0-points  elements 


dU'e^) 

dC“ 


— Minimum 


(31) 


where  the  summation  is  over  the  four  elements  of  Y and  over  a set  of  points 
(e.g.,  QT^  i = 1,2, 3, 4)  in  the  O-plane  distributed  over  the  region  in  which 
zeros  of  F(9)  are  to  be  located.  This  condition  is  also  appropriate  for 
defining  a level  at  which  Lagrange  interpolation  can  best  be  performed. 
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In  practice  the  set  of  points  (9T ^ ) are  used  in  defining  the  "effective 
reflection  height"  and  these  are  taken  to  be  the  "given"  points  in  the 
e-plane  used  for  Lagrange  interpolation. 

As  in  previous  waveguide  formulations,  e.g.,  reference  1,  the  earth 
curvature  effect  is  approximated  by  assuming  a dielectric  medium  which 
varies  linearly  in  the  square  of  the  refractive  index  over  a flat  earth. 

Considering  the  usual  right  handed  cartesian  coordinate  system, 
where  +Z  is  taken  vertically  upward,  formulation  for  such  an  integration 
from  the  bottom  of  the  profile  at  "Zb"  to  another  height  "Z-t",  can  be  ob- 
tained following  reference  7.  The  derivation  of  the  equations  is  given 
in  Appendix  B.  The  final  equations  are  listed  and  discussed  as  follows. 

Just  below  the  free  space-ionosphere  boundary  (e.g.,  Zb),  let  the 
total  electric  wave  field  be  composed  of  two  upward  (e.g.,  +Z  direction) 
traveling  incident  components  and  two  downward  traveling  reflected  compo- 
nents. They  are  defined  by  E^  y and  E^y  respectively.  E^  is  in  the 
X-Z  plane  and  Ey  is  parallel  to  the  y-axis.  The  total-field  components 
just  below  the  boundary  are  given  in  reference  7,  page  118  as 


ex  ■ <Ei,  - En>  c°sei  i 


Ey  ■ E)  + EJ 


Hx  = (EJ  ■ 9 cos0 


Hy  ’ Eii  + Eii 


I 


(32) 


where  6j  is  the  angle  in  the  x-y  plane  which  the  incident  wave  normal 
makes  with  the  vertical  z axis.  The  following  identifications  are  made: 
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i*i  = e;/e; 

'Ri  = Ey/En 
,R‘  = En/Eii 

ir«  ■ En/E; 


(33) 


Equations  (32)  and  (33)  are  combined  with  the  differential  equations  to  be 
satisfied  by  the  wave  fields  at  oblique  incidence  (reference  7,  pp.  140), 
to  give  two  independent  sets  of  relationships.  Either  of  these  sets  of 
field  variables  may  be  set  equal  to  zero  without  affecting  the  other,  so 
that  the  corresponding  waves  are  propagated  independently. 

For  the  first  set  of  equations  the  electric  field  is  everywhere 
parallel  to  the  y-axis  and  the  waves  are  said  to  be  "horizontally  polar- 
ized". For  the  second  set  of  equations  the  electric  field  is  parallel  to 
the  X-Z  plane  and  the  waves  are  said  to  be  vertically  polarized,  although 
the  electric  vector  is  not  in  general  vertical. 

The  equations  become  (as  derived  in  Appendix  B): 


For  Horizontal  Polarization: 

(-A/Oh^O  + (-B/C)h2U)  + eJ(ABI+J-)  + E]1  (JB±)  --  0 (34) 

(-A/C)  {chTU)+  Khj(e)}  + ( -B/C)  jch2U)  + Kh2U)}  + 2Ey  = 0 (35) 

For  Vertical  Polarization: 

(-O/Oh-jU)  + (-G/C)h2(c)  + E]i(>R1  ■*  -)  + (i^-)  ~0  (36) 

(-Q/C)  | ch-j (c ) + [KhJ(c)  + Lh1(C)]/n2j+ 

(-G/C)  {ch2(5)  + [Kh2U)  + Lh2(d3/n2}+  2E]]  = 0 (37) 
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The  coefficients  A,  B,  Q,  and  G are  arbitrary  constants  to  be  determined. 
The  functions  h-|(s)  and  hg (c ) satisfy  the  differential  equation 

+ cw  = 0 (38) 

d ? 

and  are  the  modified  Hankel  functions  or  order  1/3  (e.g.,  h-j^)  and  hzU)) 
as  defined  by  the  Computation  Laboratory  at  Cambridge,  Massachusetts  (ref- 
erence 8).  The  primes  on  these  quantities  denote  derivatives  with  respect 
to  the  argument.  Also 

Z = (k/a)2/3  [C2  + a(Z-H) J (39) 

C = cos(o) 

u = 2/re 

k = 2n/X  (40) 

K = i(a/k)1/3 

L - i(a/2K) 

i =^T 

where 

H:  is  the  altitude  where  the  index  of  refraction  is  unity. 

X:  is  the  free  space  wave  length. 

n:  is  the  index  of  refraction  of  the  medium. 

re:  is  the  radius  of  the  earth. 

Note  that  the  R terms  may  be  written  as: 


= jM_+_1 

c 

= jRL±JL 


jJLl 

c 


(41) 
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The  “effective  reflection  height"  is  found  by  integrating  J{Q)  up- 
ward to  heights  at,  say  one  kilometer  intervals  above  the  bottom  of  the 
profile.  That  height  at  which  the  minimizing  condition.  Equation  (31),  is 
satisfied  is  the  "effective  reflection  height".  This  height  is  chosen  as 
the  reference  height,  "d",  used  in  classical  waveguide  theory  as  the  height 
at  which  R and  R (i.e.,  X,  n,  and  d)  are  computed  and  as  the  height  at 
which  Lagrange  interpolation  is  performed.  For  evaluations  of  F(0),  Zt  is 
then  always  taken  to  be  at  z=d. 

The  upward  free  space  integration  of  the  ionospheric  )((0)  parameters 
is  carried  out  in  the  following  steps. 

STEP  I: 

Two  sets  of  boundary  conditions  (B.C.)  are  applied  to  equations  (34), 
(35),  (36)  and  (37)  at  the  Zb  level.  These  sets  are 

SET  I:  E,i  * 1,  Ey  = 0 

SET  II:  E]1  = 0,  E*  = 1 

Here  X^(0)  is  the  result  of  the  Runge-Kutta  integration  of  Equation 
(26)  at  what  will  be  denoted  as  the  "from  level",  ("f").  Where 


^ = ( k/a )2/3  [q2  + _ h)]  (42) 

For  Horizontal  Polarization  at  the  "from  level"  (Zb),  the  B.C.  give: 

For  B.C.  SET  I: 

/A,  _ Yf.  -fa22l 

(C}r  (43) 


(44) 


- 
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where: 

3l1  = h-j(?^),  a-j 2 “ ^>2 ( ) 

3-21  = chi(^f)  + [Kh]  (cf ) + Lh-j  (^f ) ]/n^ 
a22  = Ch2(;f)  + [Kh2(;f)  + Lh2(?f)]/nj’ 

Ag  = an  * a22  - a21  a12,  = 1 + ct(Zb“H) 


L (52) 


j 


STEP  II: 

The  values  of  and  Ey  at  the  "to1'  level  (e.g.,  at  the  height  Z^) 
are  determined  from  the  values  of  the  coefficients;  A/C,  B/C,  Q/'C,  and  G/C, 
for  the  SET  I and  SET  II  boundary  conditions. 

Here  the  £.  parameter  at  the  "to"  level  will  be  denoted  by: 


H = (k/u)2'"  [C2  + a (Zt-H)] 


(53) 


For  Horizontal  Polarization  at  the  Zt  "toV  level  the  results  are 


' «£>  • a21  + <§),-  a22^2 


((Ey>t)II  = {iVu  - a21  * <?>„•  a22)/2 


(54) 

(55) 


where 


a21  = ^'l^t^  + 

a22  = Ch2Ub)  + ^2^t^ 

K = i(a/k^/3 


Y (56) 


(57) 


For  Vertical  Polarization  at  the  Zt  ,!to"  level  the  results  are: 
«E|l>t>i  = ((Q/C)x  • a21  + (6/C) j • a22)/2 
((E]l)t)n  = (Q/C)u  • a21  + (G/C)n  * a22)/2  (58) 

where 

a2i = Chi^t^ + £KhU^ + LhiUt^/nt 
a22  = Ch2^t^  + CKh*2^t^  + Lh2^t^/nt 
L = i (f^)»  nt  = 1 + a(Zt“H) 

STEP  III: 

Knowing  the  values  of 

((EllVl,II  and  ((EPth,n 

at  the  "to"  level  from  sets  of  the  coefficients  A/C,  B/C,  Q/C  and  G/C 
the  elements  of  the  ionospheric  J (i.e.,  R)  can  be  found  at  the  "to" 
level . 

For  Horizontal  Polarization  at  the  "to"  level  the  results  are: 


i|il>t  ■ t»,((Ej)t)n  - 

(lli)t  ' [»2UEj,)t)i  - Vl((E{,)t)UJ/W, 


W,  = ((E].)t),  • UE?.M„  - ((El,),),,  - ((Ei)t), 

• 11^1  jrvAi.  • • - x x j ~ - 

vi  = hi  ^0  + fyi  Mct) 


V2  = fyu  + ^chl  h2^t^ 
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For  Vertical  Polarization  at  the  "to"  level  the  results  are: 


where 


(||X|)t  = LV1((Ei)t)II  - V2((Ey;t)I]/W2  (63) 

«iZ.)t = Cv2( ( Ei i ) t^ i - vi^En)thi^/w2  (64) 


W2  = ((Ell)th  * ( ( Ey ) t ) 1 1 " ( (E1 1 )t)  II  * ((Ey)t)l 
= (Q/C) j hvUt)  + (G/C)I  h2(ct) 

V2  = (Q/C)!!  h}{zt)  + (6/C)n  h2(ct) 


(65) 


Thus  having  the  values  of  the  ionospheric  reflection  coefficients 
Y(0)  at  the  resulting  values  of  these  terms  at  the  height  Z^=d  are  ob- 
tained by  applying  the  minimizing  condition,  e.g.,  so  that  the  function 
F(e)  may  be  computed  in  a form  where  poles  are  absent. 

The  values  of  the  terms  |jR u » jR^,  qRj.  and  j_Rb  at  height  Z may  be 
obtained  from  the  results  of  the  above  equation  in  terms  of  Xje)  by  the 
relations  of  Equation  (41). 


G.  The  Ground  Reflection  Coefficient  Matrices 

The  ground  reflection  coefficients  (e.g.,  jRg  and  jR^)  are 
needed  in  the  computation  of  the  F(0)  equation.  The  particular  form  of 
these  coefficients,  as  used  in  the  MODESRCH  procedure,  is  identified  by 
the  ratios  given  in  Appendix  A by  the  equations  A-9  and  A-l 0 : 
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101  = 

ilftu  + 1 

(66) 

adn 

iiriic 

101  = 

Jill 

(67) 

H 

H 

#ic 

The  equations  needed  to  determine  the  values  of  yRg,  j_Rj_  (in  terms 
of  gng»  xnl»  odii»  and  ldl)  at  a reference  height  "d"  may  be  obtained  from 
equations  of  Section  F. 

Needed  substitutions  to  those  equations  are: 


Z = 0 for  Z = Zl 


(i*/  - (i*/  ■ o 


JSlLI  = (JLQ1L)  | 
C|R°|  »d« 

lfi±-L  = (101) 

ciR°i  idi 


z=o 


z=o 


for  («X|)b 

for  (jXi)b 


(68) 


(69) 


(70) 


Where  the  Fresnel  reflection  coefficients  for  the  ground-free  space  inter- 
face are 


1*1  = 


C njj  - J*\  - S2 

C"  l * 1? 


(71) 


and 


1*1 


c -JiTs2 


(72) 


C + Vrig  - S* 


with 


(73) 


I 


ng  = (e  - j o/o))/e0 


^r 


and 


s = dielectric  constant  of  the  ground, 
o = conductivity  of  the  ground, 
co  = angular  wave  frequency. 

C = cose,  S = sine. 


z=0  and  <ft>l  z=0  at  the  "from" 
level  (e.g.  Z = 0),  are  derived  in  appendix  C,  and  are  given  as: 


Well  behaved  forms  of  (-jj-jjL) 


llnll 


lnl  - 


d„  = i 


llall 


C - 


i«i* 


(c/7^F)-i 


(74) 


At  the  "from"  level  (e.g.,  z=0).  Equations  (45)  and  (46)  become: 
For  Horizontal  Polarization: 


(A/C) jj  = (j_nj_  * a22  ” ^1^1  a12'^ ^1  • 


(75) 


(B/C) j j = (2  *j_d^  « a-ji  - ^n^  * &21 )/ (4q  • j_dj.)  (76) 


where: 


’ll 
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*1 


hl  W a12  = M?o) 

lU0)  ■ Kh*, Cs0)  • r0=  (fe/a>2/3  [C2  - aH] 


ru 

V/II 


a22  = Ch2^0^  + « “ = 2/re 


all  * a22  " a21 


1 2 


(77) 
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For  Vertical  Polarization: 
Equations  (48)  and  (49)  become: 


a12)/(A2  * ) 

(78) 

a21)/(A2  • (j dy ) 

(79) 

where: 

all  = MV’  a12  = MV 

a21  = CMV  + «KMV  + LMV)/no 

a22  = CMV  + ((KMV  + LMV)/n0 

A2  = a-|i  a22  - a21  a]2<  n2  a _ aH 

At  the  "to"  level  (e.g.,  z=d),  Equation  (55)  becomes,  for 
Horizontal  Polarization: 

( ( Ey )d) 1 1 = ((^/C)jj  ' a21  + (^/^) n*a22^2 


where 


a2i  = Ch^Cj)  + Kh^) 


Sd  = (k/a)2/3  [c2  + a(d  - H)| 

a22  = ^(V  + ^MV 

and  Equation  (57)  becomes,  for  Vertical  Polarization: 

((El1)d)I  = (Q/C)I  a21  + (G/C)I  a22)/2 


whprp 


a21  = ^1  ^V  + I^MV  ' 'M^Vl^d 
a22  = G^M*V  + j^MV  + ^M^Vj^d 


nd  = 1 + a (d  - ,’-!) 
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At  the  "to"  level  (e.g.  Z = d)  define: 


and 


JUJJL 

ltd  n 


ldl 


= jN|_ 
z=d  «D» 


- iNJL 
z=d  l°i 


(85) 


(86) 


Equations  (61)  and  (62)  for  Horizontal  Polarization  give: 

JNi  = (A/C) j j h^)  + (B/Ojj  h2(Cd)  (87) 

A - «$ihi  «*> 

and  Equations  (64)  and  (65)  for  Vertical  Polarization  give: 

„N0  = (Q/C) j h^)  + (G/C) j h2(^d)  (89) 

id,'«eii)<i)i  <90> 

The  results  of  Equations  (87)  - (90)  can  be  rearranged  by  reference 
to  Equation  (10) 
where 


h 


nil  =\iBi 


= + 1 


nD  ii 


and 


jlNj.  _ (rl+  1 ) 

i°r 

to  give  explicit  expressions  for  ( « ^ ) d and  ( jRj^  as 


1 


II  Du 


(»R|)<| = ^SE)  . i - ci«i  - A 

I!  ' 9 


(91) 


and 


1 


JL&L 


(iRi>d  ’ c<$i>  - 1 ’ 8i"i  - A 


(92) 
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Inspection  of  the  aquations  will  reveal  that  nNR , Q DQ , jN^,  and 
j_D^  contain  no  poles  for  any  finite  value  of  e. 

The  resulting  equations  of  this  section  are  equivalent  to  those 
given  in  reference  9. 

H.  Excitation  Factors,  Height.  Gains  and  Auxiliary  Functions 
(1 ) Excitation  Factors 

The  modal  excitation  factor  and  the  modal  height  gain 

functions  are  two  parameters  needed  in  computing  electric  field  strengths. 

The  excitation  factor  formulas,  as  presented  in  reference  10,  are  summarized 

in  the  table  1.  The  column  headings  only  apply  to  excitation  of  the  electric 

field  components  E , E and  E and  the  row  headings  apply  to  excitation  by  a 
z y x 

vertical  dipole  (Xv),  horizontal  dipole  end  on  and  a horizontal  dipo'e 
broadside  (Xg).  The  direction  of  z is  taken  positive  into  the  ionosphere. 
Positive  x is  the  direction  of  propagation  and  y is  normal  to  the  plane  of 
propagation. 


Field  __ 
Component 


-r 

Exciter  ! 


Table  1 - EXCITATION  FACTORS 


B,  P+n*H)‘ 0 > 


i^ii 


' D>  I|*l0'*"ll*l|)0+J*l) 

S Du 


S u^ii  Du 


B,  0+,,*»)ap-i*ift) 
ii^ii 


h Bz(H„R„)?(l-  A fr) 

S D)2  S u^u  On 


,1Ri,(H,Ri)0t„R„) 

0.2 


B;  ( ■+  jRj  (l  ~ „R„  !|R||)  Bj  ,R,,  (1  + 1Ri)(H||R!|) 

s iR,i  D2j  S Di 2 


The  R and  R's  are  the  elements  of  the  reflection  matrix  looking  into 
the  ionosphere  and  towards  the  ground  from  the  reference  level  "d"  within 
the  guide. 

The  reference  height  "d"  is  that  value  where  solutions  to  F(0)  = 0 
are  determined. 

B1  and  B0  are  given  by: 

I Urn 

B1  - sS'Z  W 9=9  <»> 


32  = - B-j/S 


IBs..  _ ! 
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where  S is  the  sine  of  the  eigenangle  and  the  denominator  is  the  derivative 
of  the  modal  equation  (i.e.  eq.  7)  at  an  eigenangle,  0. 

The  definitions  of  the  D.-'s  are  given  in  the  next  section. 

' J 

To  compute  electric  field  strengths  the  excitation  factors  must  be 
supplemented  with  definitions  of  the  height  gains. 

( 2 ) Height  Gain  Terms 

The  height  gain  relationships  at  height  Z are  described 

below. 

From  Equation  (39): 

? = (k/a)2/3  [c2  + a(Z  - H)]  (95) 

At  any  height  Z. 

The  height  gain  for  the  vertical  electric  field  (Ez)  is  f|  (z)  and  is  given 
by: 

fB  (Z)  = [ (Q/C) j h^?)  f (G/C)  h2(0]  exp[(Z  - d)l/re]  (96) 


where  d is  the  reference  height  for  solving  F(e)  = 0 for  the  eigenangle 
and  where  (Q/C) j and  (G/C) j are  given  by  Equations  (48)  and  (49)  respec- 
tively. The  term  "re"  is  the  radius  of  the  earth. 

Also,  the  height  gain  for  the  horizontal  electric  field  component 
(Ey)  normal  to  the  plane  of  propagation  at  height  Z is  given  by: 

fx  (Z)  = [ ( A/C)  j j h^O  + (B/C)n  h2(0)  (37) 

where  (A/C) j j and  (B/C) j j are  given  by  Equations  (45)  and  (46)  respectively. 

The  height  gain  for  the  horizontal  electric  field  components  (Ex)  in 
the  plane  of  propagation  at  height  Z is  given  by: 


/ -1  \ 

l 

d 

l-C  1 7\\ 

y \*-i 

dZ 

\ • ||  ; 

g(z) 

= -i 

exp 

(Z-d) 
' a ' 

(fir)1/3  C(Q/C)I  + (G/C)I  h2^)] 


[(Q/C)I  hl(?)  + (G/C)I  h2^)] 


(98) 
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At  height  Z = d (i.e.  the  reference  height)  the  argument  is: 


& 


P 


Sd  = (k/a)2/3  [c^  + a(d  - H)] 


and 


D11  = fl  ^d)»  °12  = fK  ^d^  fi^d^ 


(99) 


(100) 


°22  = fl^d^ 

(3)  Modified  Excitation  Terms 

Various  combinations  of  the  modal  excitation  factor  and  the 
height  gain  function  are  required  for  computing  field  strengths  by  different 
mode-sum  programs.  Reference  11  is  an  example. 

Table  2 illustrates  the  case  whe^e  the  excitation  fa  tors  as 
described  in  Table  1 and  the  height  gains  from  Equations  (96),  (97)  and 
(98)  are  lumped  together  and  defined  as  modified  excitation  factors.  Tabie 
2 illustrates  combinations  obtained  for  computing  the  vertical  electric 
field  (Ez).  These  particular  combinations  will  be  discussed  further  in 
Section  V-C-2  for  the  option  NFUNCH  = 7. 


iaBBa^rgSTiagrjB 


Table  2 

Excitation  Factors  for  Computing  the 
Vertical  Electrical  Field  (Ez) 


Vertical  source: 


<1  + ,R,)2  (1  - ill XRj. ) , 

xvz  " et 5-7-J • fi  <zt>  • fi  (zr> 

lKl  uu 

Horizontal  broadside  source: 


lR|0  +iRi)(l  + ,E,)  • fJL(Zt)  • f,(Zr) 


'BZ 


12 


Horizontal  end-on  source: 


EZ 


O + ,Rj)2 


iiri  ’ Dn 


0 - jR]_  xRi ) • g(zt)  * f.  (zr) 


Zt  is  height  of  the  transmitter  and 
Zr  is  the  height  of  the  receiver 


The  excitation  factor  usually  considered  is  the  vertical  component 
of  the  electric  field  vector  for  vertical  receiving  and  transmitting  point 
dipoles,  where  both  receiver  and  transmitter  are  at  the  ground  (e.g.,  z = 0). 
The  excitation  factor  Xyz  is  denoted  in  this  case  by  XQ.  Wait's  excitation 
factor  is  computed  as  AQ  = -,5ikhrX^  where  k is  the  wave  number  in  km"1, 
hr  is  REFLHT  and  i = vHT- 

(4)  Fast  Mode  Conversion 

Reference  12  presents  equations  and  a computer  program  for 
calculating  the  vertical  electric  field  strength  at  a receiver  by  the  pro- 
cedure of  mode  conversion.  An  input  parameter  required  for  these  calculations 
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is  denoted  as  ’ FOVR ' . The  mode  conversion  program  requires  that  the  ref- 
erence height  used  for  computing  ionospheric  and  ground  reflection  coef- 
ficients be  at  the  ground  (i.e.,  z=0). 

The  reference  height  used  in  the  MODESRCH  computer  program  is  at 
some  height  "d"  (d^O).  Therefore  the  equation  needed  to  obtain  the  re- 
quired 'FOVR'  term  is  given  by" 


(l  + jlRjl)0  - |R|  iR|) 

f,(d) 

0 + 1*1  >< 1*1  i*i ) 

, 1 (d) 

z=d 

(1  + jRiK.Rj.  ,R,)_ 

f,  (d) 

(1  + ,*,)(>  - jRi  jKx) 

fl(d) 

z=d 


(101) 


I.  Use  of  Lagrange  Interpolation 

The  general  root-finding  algorithm,  (section  III),  used  to  lo- 
cate the  zeros  of  a function,  f(0),  requires  that  values  of  f(e)  and  its 
derivatives  wrt  9 be  available  upon  call  for  any  value  of  0 in  the  region 
of  interest.  In  Section  F a criterion  was  given  for  choosing  a reference 
height,  'd',  so  as  to  minimize  the  variation  of  Y = (R  + 1)/C  wrt  0 there- 
by placing  the  dominant  waveguide  effects  into  £ and  d (i.e.,  into  R). 

(See  Equation  7.)  On  the  other  hand,  far  more  computation  is  required  to 
evaluate  J than  to  evaluate  n and  d.  This  suggests  the  utilization  of  an 
approximate  representation  of  J to  be  used  within  the  general  root-finder, 
and  then  following  the  zeros  of  f(9)  (see  Equation  7)  to  their  locations 
which  will  be  consistent  with  the  exact  formulation  for  J. 

The  general  root-finder  requires  that  the  function  f(0)  be  analytic 
with  no  poles  and  therefore  an  approximate  representation  of  must  be 

A/ 

.nalytic  with  no  poles.  A polynomial  representation  has  been  chosen, 
which  can  be  represented  by  the  Lagrange  interpolation  formula 


approx.  ' 


n 

n 

k--l 

k^i 


(e-ek) 


and 

where 


pi 


A 

Mi 


xi  ej 

I 

<W 


(102) 


where  ,X(e.)  are  evaluations  of  X using  the  exact  formulation  for  X_  at  n 
selected  angles,  0- , distributed  over  the  0-plane  in  the  region  of  in- 
terest. 


Since  F(0)  (see  Equation  7)  in  both  approximate  and  exact  (com- 
plete) forms  is  analytic  with  no  poles,  each  zero  of  F(0)ann--V  may  be 
followed  uniquely  to  a corresponding  zero  of  T(0)exacf  The  continuous 
transition  from  one  to  the  other  may  be  represented,  for  example,  by 


F(0)  = F(0)  - cos2p  + F(0)  - sin2p  (103) 

comb.  approx.  exact 


with  p varying  continuously  from  0 to  9CP . In  practice  p is  incremented 
in  finite  steps  with  a Newton- Raphson  iteration  at  each  step.  How  far  the 
zero  of  F(0)  "travels"  in  the  0-plane  as  p is  varied  from  0 to  9(P  depends; 
however,  on  how  well  F(0)  (i.e.,  X(0))  is  represented  by  the  Lagrange  inter- 
polation. It  is  possible,  in  principle,  that  a zero  may  travel  from  the 
region  of  interest  to  infinity,  or  vice-versa.  There  are  no  guarantees 
and  although,  in  most  cases  in  the  VLF  and  LF  range,  the  use  of  Lagrange 
interpolation  may  save  on  computation  by  an  order  of  magnitude,  it  never- 
theless represents  the  "weakest  link"  in  formulating  a self-contained  mode 
search.  In  some  cases,  especially  in  the  ELF  range,  it  is  necessary  to 
use  the  (exact)  formulation  for  F. 

J.  Comments  of  the  Differentiation  of  F(0)  wrt  0 

The  excitation  factor  components  given  in  Section  H require  the 
computation  of  the  derivative  F(0)  wrt  0 for  each  eige.. -value  of  0.  In 
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addition,  the  general  root-finder,  (section  III),  requires,  in  its  later 
stages,  some  evaluations  of  dF/de,  and  the  following  of  zeros  by  the  use  of 
Newton-Raphson  iteration  described  in  Section  I requires  computation  of 
dF/de.  Traditionally  this  derivative  has  been  evaluated  by  computing  F at 
two  closely-spaced  values  of  0,  using  a large  number  of  significant  digits 
in  the  computation.  An  alternative  is  to  analytically  differentiate  F, 
which  implies  analytic  differentiation  ofj,  £ and  d.  This  alternative 
was  chosen  for  the  mode  search  program. 

Note  that  differentiation  of  the  numerical  (Runge-Kutta)  integra- 
tion described  in  Section  E is  performed  by  the  same  type  numerical  inte- 
gration, with  the  integrand  analytically  differentiated  wrt  0. 

In  certain  sections  of  MODESRCH  where  F(0)  is  computed  in  terms  of 
Lagrange  interpolation,  the  formulation  of  the  derivative  wrt  0 is  given 
by 


&1  = 
d0 


n-1  n 
2 2 
i=l  j=i+l 

Mi 

k/j 


(F(0)-Fk(0) 


pi  + pj 


(104) 


where 


p*  = !hl 

k=l 

k/£ 

and  n is  the  numbet  of  points. 
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III.  THE  GENERAL  ROOT- FINDER 

There  is  a need  to  formulate  a procedure  to  determine  the  complex 
zeros  of  a complex  function.  For  the  method  presented  here,  the  search  for 
such  zeros  is  based  on  the  fact  that  the  lines  of  constant  phase  of  any 
complex  function,  F(e),  may  be  discontinuous  only  at  points  where  F(0)  = 0 
or  F(9)  -»**>.  The  function  F(9),  to  be  discussed,  is  such  that  it  contains 
no  poles  and  only  F(9)  = 0 is  considered.  Also,  the  lines  of  constant  phase 
around  f(9)  = 0 progress  only  in  a counter-clockwise  direction. 

Let: 

F(e)  = FR(er,e.)  + j FI(9r,o.)  (106) 

where 

9 = er  + j9. 

Also  F(0)  = [FR(0r,0i)?  + FF(9r,9i)2]1/2ej0  (107) 

where 


and 

Fr(0)  is  the  real  part  of  the  complex  function  f(9) 

Fj (0)  is  the  imaginary  part  of  the  complex  function  F(0) 

0 is  the  real  part  of  the  complex  number  (9) 

0.  is  the  imaginary  part  of  the  complex  number  (0). 

If  F(0)  has  no  poles,  this  implies  that  the  line  of  any  particular 
constant  phase  value  0 = 0 , radiating  from  a zero  of  F(9),  must  cross  a 

V 

closed  contour  containing  that  zero  at  least  once.  Furthermore,  no  other 
zero  of  F(9)  may  be  on  this  phase  tine.  These  relations  are  illustrated 
in  Figure  2. 


Figure  2.  Constant  Phase  Lines  of  F(0). 


A line  of  constant  phase  (e.g.,  0 = 0 ) which  crosses  the  contour 

may  be  followed  inward  until  it  leads  to  a zero  of  F(e)  or  until  the  line 

again  reaches  the  contour. 

The  p~  cedure  is  as  follows. 

(A)  Let  0=0 p (or  1 8CP  ) » this  implies  that 

c (10 

Fj  (0r,9i)  = 0 

Also  let  0 = 9CP  (or  27(F),  this  implies  that 

V 

FR(er’ei)  = 0 (11 


(B)  Construct  a "contour  rectangle"  in  the  complex  e plane.  Denote 
the  corners  of  this  rectangle  by: 


xi  rrr 

l ULI I - VWIUC  V 1 


v»r  nr  i nnra 


I I l\-  UU  VA  W 


TRIGHT  - value  of  real  part  of  Theta  at  right  edge  of  rectangle. 
TBOT  - value  of  imag.  cart  of  Theta  at  bottom  edge  of  rectangi 
TTOP  - value  of  imag.  part  of  Theta  at  top  edge  of  rectangle. 


Define  the  following  parameters: 

TMESH  - equal  to  about  half  the  average  spacing  between  zeros  with- 
in the  rectangle. 

TOL  - tolerance  to  which  zeros  are  to  be  found. 

If  two  zeros  are  closer  than  ‘TOL1,  the  zeros  will  not  be  found  by  this 
method. 

(C)  Divide  the  ‘contour  rectangle1  up  into  small  mesh  squares  where 
the  dimensions  of  the  squares  is  such  that  the  length  of  a side  is  smaller 
than  the  average  separation  of  the  zeros  of  F(0)  (e.g.,  size  of  a mesh 
side  = ‘TMESH’). 

(D)  Normalize  the  value  of  the  corners  of  the  "contour  rectangle" 
into  mesh  units.  The  corners  are  then  denoted  as  JLT,  JRT,  JTOP,  and  JBOT. 
That  is  0‘s  for  the  "contour  rectangle"  are: 

01  at  left  edge:  JLT  = TLEFT/TMESH 

e2  at  right  edge:  JRT  = TRIGHT/TMESH 

03  at  top  edge:  JTOP  = TTOP/TMESH 

0^  at  bottom  edge:  JBOT  = TBOT/TMESH. 

(t)  Figure  3 illustrates  the  rectangular  region  of  the  complex  0- 
plane  within  which  the  roots  of  F(0)  = 0 are  to  be  found. 


JLT,  JBOT 


JRT,  JBOT 


Figure  3.  "Contour  Rectangle"  with  "MESH"  Squares. 

In  the  above  example  all  the  axes  are  marked  with  tic  marks,  with 
spacing  AB  = TMESH.  The  mesh  size  within  the  rectangle  is  equal  to 
TMESH. 

In  the  above  figure,  JLT  = 6,  JRT  = 20,  JTOP  = 1,  JBOT  =-3. 

Since  some  "slop"  occurs  at  the  rectangle  boundary,  the  limits  of 
the  rectangle  are  made  one  TMESH  larger  on  all  sides  than  actually  de- 
sired. 

TMESH  should  be  no  larger  than  about  one-half  the  average  spacing 
between  roots. 

(F)  The  procedure  then  is  to  examine  the  character  of  F(e)  in  a 
counter  clockwise  direction  around  the  contour  rectangle  (see  Figure  4). 
Intermediate  steps  of  investigating  mesh  squares  are  also  carried  out  in 
a counterclockwise  direction.  Again  see  Figure  4. 


(G)  Consider  an  individual  mesh  -.quare  (e.g.,  mesh  ns.  j).  The  cor 


ners  of  the  square  may  be  labeled  in  terms  of  F(0r>0.j)  where  each  edge  is 


F(0 ,0)  edge  ;O»0) 

2 


Figure  5.  Normalized  Coordinates  of  Each  Mesh  Square  for  F(0r,0^). 
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Note  that  for  each  unit  mesh  square  the  lower  left  hand  corner  is  taken  as 
the  reference  position. 

A basic  assumption  put  on  F(e)  is  that  Fj(0)  and  FR(0)  are  to  be 
linear  along  each  edge  of  a mesh  square. 

The  coordinates  of  the  corners  of  mesh  square  No.  1 (see  Figure  4) 
are  given  by: 


F(0,1)  = F(JLT,JT0P) 
F(0,0)  = F(JLT,JT0P-1) 
F(1 ,0)  = F(JLTJ-1  ,JT0P-1 ) 
F(1 ,1 ) = F(JLT+1 ,JT0P 


(111) 


All  other  squares  are  identified  by  increasing  or  decreasing  the  0r  and/ 
or  0^  coordinates  by  increments  of  1-mesh  unit. 


(H)  The  root-finder  procedure  continues  as  follows.  First,  mesh 
square  No.  1 is  examined.  The  values  of  Fj (0 ,1 ) and  Fj(0,0)  for  mesh  edge 
No.  1 are  computed.  If  the  signs  of  these  two  values  are  identical,  there 
can  be  no  line  with  constant  value  of  Fj (0)  = 0 passing  through  this  edge. 
Next,  investigate  mesh  square  No.  2 (see  Figure  4).  Compute  the  values 
of  Fj(o,l)  and  Fj(0,0)  for  this  mesh  square.  The  value  of  Fj ( 0 , 1 ) for 
mesh  square  No.  2 is  identical  to  that  of  Fj (0,0)  for  mesh  square  No.  i, 
however,  the  value  of  Fj(0,0)  for  mesh  square  No.  2 will  be  a new  value. 

The  coordinates  of  mesh  square  No.  2 are  identified  by: 

F(0,i)  = F(JLT,JT0P-1) 


F(0,0)  = KJLT,0T0P-2) 

(112) 

c/i  n\  = c/.utj-i  ,rrnD_9^ 

‘ V 1 3 ^ ^ vy . • , jv  . v _/ 

F(1 ,1 ) = F(JLT+1 , JTOP- 1 ) 

If  the  signs  of  Fj (0 ,1 ) and  Fj(0,0)  for  mesh  square  No.  2 a ve  oppo- 
site, this  implies  that  the  line  Fj(0)  = 0 enters  mesh  square  No.  2 some- 
where along  edge  No.  1.  Because  of  the  linearity  assumption  of  Fj (0)  along 
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the  edge  of  a mesh  square,  the  intersection  between  the  edge  and  the  con- 
stant phase  line  Fj(8)=0  is  {as  shown  in  Appendix  D,  eq„  13)  to  be  at: 

-FI(0,0) 


dr  = °jQ 1 = (Fi(0,1)-Fi(0,0)) 


(113) 


GM  is  identified  as  ENTER-R 
r 

9.j  is  identified  as  ENTER- 1 

(I)  It  has  now  been  determined  that  the  constant  line  Fj(e)  - 0 has 
entered  mesh  square  No.  2.  The  problem  is  to  find  where  this  line  exits 
from  the  square.  Also  it  must  be  determined  whether  a zero  to  F(e)  lies 
within  the  mesh  square.  Several  tests  must  be  made: 

1)  Computations  are  made  to  obtain  the  values  of  Fj(l,0)  and  Fj(l,l) 
for  mesh  square  No.  2.  At  this  point  values  are  known  for  Fj (G) 
at  all  four  corners  of  mesh  square  No.  2. 

2)  Test  for  there  being  two  (hyperbolic)  lines  entering  and  leav- 
ing the  mesh  square  along  each  line  of  which  Fj(0)  = 0. 

(a)  If  only  one  line,  the  parameter  LTWO  is  set  to  zero. 

(b)  If  the  values  of  Fj(0,0)  and  Fj (1 ,1 ) are  each  greater  than 
zero;  and  the  values  of  Fj (1 ,0)  and  Fj (0,1 ) are  each  less  than 
zero  then  there  are  two  hyperbolic  lines  of  Fj(0)  = 0 
entering  and  leaving  the  mesh  square.  This  condition  is 
illustrated  in  Figure  6. 


■HYPERBOLIC 
BRANCH  CURVES 


Figure  6.  Hyperbolic  Branch  Curves  of  F^(0)  Within  a Mesh  Square. 
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For  this  case,  the  parameter  "LTWO"  is  set  equal  to  1. 

(c)  Also,  if  the  values  of  Fj(0,0)  and  Fj(l,l)  are  each  less 
than  zero,  and  the  values  of  Fj (1 ,0)  and  Fj (0 ,1 ) are  each 
greater  than  zero,  the  result  is  identical  to  (b)  above. 

3)  Test  for  there  being  at  least  one  hyperbolic  branch  line  enter- 
ing and  leaving  the  mesh  square  along  which  Fp(0)  = 0. 

(a)  If  the  values  of  Fp(0,0),  Fp(0,l),  Fr(1,0)  and  Fp(l,l)  are 
all  of  the  same  sign,  then  there  is  no  line  of  Fp(e)  = 0 
passing  through  the  mesh  square  and  the  variable  "190"  is 
set  to  zero. 

(b)  If  the  condition  of  (a)  above,  is  not  met,  then  there  is 
at  least  one  branch  line  entering  and  leaving  the  mesh  and 
the  variable  '190'  is  set  equal  to  1. 

4)  Test  to  see  if  there  exists  the  conditions  for  the  presence  of 
hyperbolic  lines  at  both  Fj(0)  = 0 and  Fp(0)  = 0 within  the 
mesh  square. 

(a)  If  the  condition  is  not  present  (e.g.,  "LTWO"  is  equal  to 
0 and  "190"  is  equal  to  0 ) then  determine  which  mesh 
edge  (e.g.,  2,3,  or  4)  where  the  original  entry  Vine  exits 

and  proceed  with  an  analysis  of  the  appropriate  mesh 

square.  For  example,  as  can  be  observed  from  Figure  4, 
edge  No.  2 leads  to  mesh  square  No.  3,  edge  No.  3 leads 
to  mesh  square  No.  5 and  edge  No.  4 leads  to  mesh  square 
No.  I. 

The  line  F j(0)  = 0 is  followed  continuously  from  mesh  to  mesh  until 

the  line  exits  from  the  "contour  rectangle".  When  this  occurs,  the  value 

of  the  leading  edge  (counter  clockwise  direction)  of  the  mesh  square. 
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through  which  the  Fj (e ) = 0 line  exits,  is  noted.  By  identifying  the  mesh 
square,  in  which  this  line  exit  occurs,  it  is  possible  to  later  avoid  re- 
entering this  mesh  square  through  this  exit  edge  while  following  along 
the  outer  edge  of  the  "contour  rectangle".  Figure  7 illustrates  this  situa- 
tion. Note  that  it  is  possible  that  a solution  to  F(e}  = 0 will  be  found 
as  the  line  Ft(0)=  0 progresses  through  the  various  mesh  squares.  This 
case  will  be  discussed  in  the  following  Section  (b). 

The  next  step  after  exit  from  mesh  square  No.  k is  to  examine  mesh 
square  No.  3 for  intersections  of  the  line  Fj(e)  = 0 on  edge  No.  1 of  mesh 
square  No.  3. 

(b)  If  hyperbolic  lines  of  both  Fj ( e ) = 0 and  FR(e)  = 0 do 
exist  within  mesh  square  No.  2,  then  the  following  hyper- 
bolic relations  are  examined. 


*6r 


Figure  7.  Contour  Rectangle,  Mesh  Squares  and  the  iine  Fj(o)  = 0. 
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It  is  shown  in  Appendix  D that  the  relationship  for  F(e)  based  on 
a knowledge  of  F(e)  at  each  of  the  corners  of  a mesh  square  is  given  by 


where 


F(e)  = a + bei  + cer  + derei 

a = F(0,0) 
b = F(0,1)  - F(0,0) 
c = F(1 ,0)  - F(0 ,0) 


014) 


(115) 


d = F(0,0)  + F(1 ,1 ) - F(0*1 ) - F(1 ,0) 

These  coefficients  describe  the  variation  of  F(e)  within  the  mesh  square 
given  the  values  of  F(e)  at  the  corners  of  the  square  and  that  a linear 
variation  exists  between  valves  of  F(e)  along  the  edges  of  the  square. 

When  FR(e)  = 0 (or  Fj (e)  =0), Equation  114  is  the  equation  of  an 
equilateral  hyperbola  with  vertical  and  horizontal  asymptotes. 

Now  consider  the  constant  phase  line  Fj(e)  = 0.  From  Equation  114 


this  is 


(ai+biei)  + (ci+diei)er  = 0 


a.+b-e . 
a = - i J.  i 
r c.+d.e. 
i it 


The  following  equation  is  also  obtained  from  Equation  114. 


(116) 


(ai+ci8r)  +(bi+dIer)ei  = 0 


(117) 


a_.+c_.e.. 
ei  b.+d.e 


The  position  of  the  crossings  of  the  hyperbolic  asymptotes  (which  are 
parallel  to  the  sides  of  the  square)  for  the  lines  Fj ( 0 ) = 0 are  computed 
since  both  lines  (hyperbolic  branches)  may  enter  and  leave  the  square. 


For  the  function  Fj (e)  = 0 the  line  of  the  vertical  asymptote  is  given  in 
Appendix  D as 

er  = - b./d.  (118) 

where  8r  is  identified  ?s  CENTER-R,  while  the  line  of  the  horizontal  asymp- 
tote is  given  by 

Qi  = - c./d.  (119) 

where  is  identified  as  CENTER- I. 

There  are  two  possible  points  at  which  there  may  be  crossings  of 
the  (hyperbolic)  lines  F^(e)  = 0 and  fj(e)  =0.  A crossing  point  is  chosen 
to  be  a zero  of  the  function  if  it  lies  within  the  current  mesh  square  and 
if  it  lies  on  the  hyperbolic  branch  of  Fj (e ) = 0 currently  being  followed. 
Note  that  in  the  example  being  examined  the  hyperbolic  branch  line  being 
examined  enters  mesh  square  No.  2 along  edge  No.  1 and  exits  along  edge 
No.  2. 

Both  Equation  (116)  and  Equation  (117)  must  be  examined  since  in  any 
given  case  either  form  (but  not  both  forms)  may  be  indeterminate. 

Equation  (116)  may  be  considered  as  two  equations,  that  is  for  real 
and  imaginary  parts  of  the  constants  a,  b,  c,  and  d: 


<ybr9i 1 
<cr+dre1> 


a.+b .0 . 
l it 


c.+d.e. 

i ii 


(120) 


and,  equating  the  two  right  hand  equations  the  result  is 
prf  +Q1ei  + W1  = 0 

where 


P,  = b d.  - b-d 
1 r i i r 


Q,  = a d.  + b c;.  - a-d  -b.c 
yl  r i r i i r l r 

Wn  = a c.  - a.c 

j r 1 1 i 


(121) 


(122) 
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This  equation  is  solved  (see  Appendix  E)  for  e...  Then,  knowing  e.. , er 
can  be  determined  from  Equation  (116).  In  the  same  manner  Equation  (117) 


gives 


VVV  _ W,- 

1 " ’ tY+drer  " " bi+dier 


and  equating  the  two  right  hand  equations  gives 


023) 


where 


p2er  + Vr  + "2  * 0 


P.  = c d.  - c-d 
2 r 1 l r 


Q9  = + c b.  - a.d^  - c.b^ 

2 r i r i lr  ir 


^2  ~ ” aicr 


(124) 


(125) 


this  equation  may  be  solved  for  er  (see  Appendix  E).  Then,  knowing  er> 
can  be  determined  from  Equation  (117). 


Ibrdi  “ bidrl <^crdi  “ cidr*  (126) 

Equations  (116)  and  (121)  are  solved  for  er  and  e^.  If  the  inequality  of 
Equation  (126)  is  not  true  then  Equations  (117)  and  (124)  are  solved  for 
er  and  8^. 

A solution  of  Equations  (116)  and  (121)  (or  Equations  (117)  and 
(124))  is  accepted  if  it  lies  within  the  current  mesh  square.  That  is,  if 
the  solution  is  denoted  9g  or  (er$  + J’eis)»  then  e$  must  satisfy  the  rela- 
tionships 

0 > ers  < 1 and  0 > eis  < 1 (127) 


to  be  a solution. 
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Also  the  solution  must  lie  on  the  hyperbolic  branch  of  F j ( e ) = 0 
which  is  currently  being  followed.  The  relationship  is  that  (using  Equa- 
tion (113)  and  Equations  (118)  and  (119): 

if  (ENTER  R - CENTER  R)  • (e  - CENTER  R)  > 0 

rs  (128) 
and 

if  (ENTER  I - CENTER  I)  • (ei$  - CENTER  I)  > 0 

then  the  solution  of  F(e)  is  on  the  current  branch  line.  If  Equation  (128) 

is  not  true  then  the  solution  e$  is  not  on  the  current  branch;  however, 
the  improper  solution  will  be  ^elected  later  when  following  another  con- 
stant phase  line  of  Fj(e)  = 0. 

Figure  8 illustrates  the  case  where  eg  is  a proper  solution  to  F(e)  = 0. 

Figure  9 illustrates  the  case  where  eg  is  not  a proper  solution  to  F(e) 

= 0. 

If  the  value  eg  is  a solution  to  F(e)  = 0 the  line  Fj(e)  = 0 is 
followed  out  of  mesh  square  No.  2 through  edge  No.  2 into  mesh  square  No. 

3 through  its  edge  No.  4 (see  Figure  4).  The  line  Fj (e)  = 0 is  then  fol- 
lowed from  mesh  to  mesh  until  the  line  Fj(e)  = 0 exits  from  the  contour 
rectangle  (see  Figure  10). 

II 

F(0,1)  || 

F(l,l) 

\[CENTER-R 

l /'i-uTrn  T 

(ULN 1 1 c.r\- 1 


F(0,0)  \ | F(1 ,0) 

Figure  8.  e$  is  a Proper  Solution  to  F(e)  = 0. 
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At  this  point  the  value  of  the  leading  edge  (counter  clockwise  direc- 
tion) of  the  mesh  square,  through  which  the  Fj ( e ) = 0 line  exits,  is  noted. 
This  mesh  edge  will  also  be  along  one  of  the  contour  rectangle  sides.  By 
identifying  the  mesh  square  in  which  this  line  e.  it  occurs,  it  is  then 
possible  to  later  avoid  re-entering  this  mesh  through  this  exit  edge  while 
following  the  sides  of  the  contour  rectangle.  This  is  important  because 
if  the  search  were  allowed  to  re-enter  at  this  location,  the  same  zero 
of  F(e)  would  be  found  twice. 

The  next  step  is  to  examine  mesh  square  No.  3 for  intersections  of 
the  line  Fj(e)  and  edge  No.  1 of  that  mesh. 

(J)  The  entire  contour  rectangle  is  now  searched,  by  the  methods 
described  in  Section  I,  so  that  finally  all  of  the  zeros  of  the  function 
F(e)  = C,  which  lie  within  the  contour  rectangle,  are  known.  These  solu- 
tions must  be  considered  approximate;  however,  in  that  the  hyperbolic  ap- 
proximation has  been  used  in  solving  for  F(e)  = 0. 

(K)  To  alleviate  this  problem,  use  is  made  of  the  Nawton-Raphson 
iteration  method  to  remove  the  mesh  approximation  where; 


A9 


F(e) 

Mil 

Hde 


e = mesh 


(129) 


If  two  approximate  solutions  are  nearly  equal,  they  may  coverge  to  a 
single  value  after  application  of  the  Newton-Raphson  procedure. 

In  order  to  resolve  the  two  solutions  further  analysis  Is  needed,  Let  the 
two  approximate  solutions  be  g.  , and  fl.  Consider  a set  of  9 mesh  sauares 
arranged  in  a 3x3  formation  with  the  one  containing  the  solution  0.  at  the 

S ) 1 

center.  There  are  16  corner  points  associated  with  the  corners  of  these 
squares  (e.g.  (flx).,  i=l ,2,3,. .,16).  The  functions  F ( ( 0X ) ^ ) are  then  computed 


for  each  of  the  16  corners.  These  values  will  be  denoted  as  ^mesh^-xM’  The 
set  of  functions  given  by  the  following  equation  are  also  computed, 


'th  «•■>«> 


(e  .~e  , ) 

9s,l  X1 

(1=1, 2, 3,, ,,16} 


(130) 
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The  next  step  Is  to  compute  the  following  function  at  each  of  the  16  corners: 

■ W<6x>i>  “A  +Fno  <131> 

mesh 

where  3 is  Incremented  from  0°  to  90°  in  whatever  increments  are  required  to 

resolve  the  zeros  of  P(e),  Considering  the  9 squares  one  at  a time  the 

hyperbolic  equation  (Eq.  114)  is  solved  to  get  0,1,  or  2 solutions  in  each  of 

the  squares.  Only  those  solutions  (e  .-)  which  exist  inside  of  a given  square 

M 

are  kept.  The  final  solution  (e  ,}  is  chosen  to  be  that  one  solution  from 

P>  1 

the  set  (e_  .)  which  is  closest  to  the  original  ec 

M > J b^l 

The  same  type  of  analysis  is  then  carried  out  for  the  solution  ec  The  final 

s ,c 

solutions  e_.  and  e 9 are  iterated  by  the  Newton-Raphson  procedure  to  give 
the  exact  solutions.  If  these  two  solutions  again  converge  to  a single  number, 
the  value  of  6 in  Equation  131  is  incremented  and  the  entire  procedure  is 
again  carried  through  with  the  values  6p  -|  and  2 replacing  the  values  of 
0s  -|  and  es  2.  Note  that  completeness  (in  that  the  full  set  of  zeros  has  been 
determined)  is  assured  in  Steps  I and  0 whereas  exact  values  must  await  Step  K, 
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IV  STRUCTURE  AMD  DESCRIPTION  OF  THE  MODESRCH.  COMPUTER  PROGRAM 
(A)  Progranri  Structure 

The  MODESRCH  computer  program  finds  the  waveguide  mode  constants 
of  the  earth- ionosphere  waveguide  for  radio  propagation  at  ELF-VLF-LF. 

These  mode  constants  are  determined  in  the  form  of  modal:  eigenangles, 
attenuation  rates,  phase  velocities  and  excitation  factors. 

The  individual  subroutines  of  the  MODESRCH  program  are  listed, 
in  Table  3.  In  this  table,  those  subroutines  are  divided  into  special 
sub-groups  which  are  in  accordance  with  their  function  in  the  total  pro- 
gram structure. 

Figures  11  through  14  illustrate  the  structure  of  the  MODESRCH 
computer  program.  In  particular.  Figure  11  presents  the  general  flow  of 
the  program  showing  the  order  in  which  the  various  subroutines  and  sub- 
groups are  executed.  This  sequence  is  indicated,  in  the  figure,  by  the 
numerals  1 through  6.  Figure  12  shows  the  structure  of  the  Ionospheric 
Full -Wave  Integration  procedure.  Figure  13  gives  the  Free  Space  Integra- 
tion Structure  along  with  the  structure  of  the  routines  for  computing  the 
values  of  the  function  F(e)  and  the  derivative  of  F(e)  with  respect  to  e. 
Figure  14  illustrates  the  structure  of  the  Root-Finder  procedure. 


TABLE  3 

LIST  OF  PROGRAM 
ROUTINES  FOR  MODESRCH 


MAIN  FLOW 
MAIN 
WVGUID 
PRFLIN 
SETRH 
NEOUT 
NPOUT 


ROOT- FINDER 
FZEROS 
NOMESH 
FINDF 
QUAD 


FULL  WAVE  INTEGRATION 
INTEG 
INITLR 
QUARTO 
TMTRX 
SMTRX 
ENNU 
DIFFEQ 
ROUT 

FREE  SPACE  INTEGRATION 
FSINTG 
MDHNKL 


F-FUNCTION 

FCTVAL 

FDFDT 

FINAL 

LAGRNG 

RBARS 

MDHNKL 


AUXILIARY  ROUTINES 
CAS  IN 
CANG 
XFER 
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MODESRCH 


Structure  of  MODESRCH  Computer 


FULL  WAVE  INTEGRATION 


for  the  MODESRCH  Computer  Program. 


Figure  13.  Structure  of  the  Free  Space  Integration  Procedure  and  Structure  of  1 
Value  Routine  and  Derivative  wrt  6 of  the  Function  Value  Routine. 


ROOT  FINDER 


Structure  of  the  Root  Finder  Procedure  for  the  MODESRCH  Computer  Program 


(B)  Computer  Program  Description 

The  function  of  each  program  subroutine  is  listed  below: 

(1)  MAIN  ROUTINE: 


This  routine  controls  the  sequence  of  input  and  execution. 
It  provides  for  NAMELIST  input. 

(2)  SUBROUTINE  PRfLIN: 


This  routine  provides  for  input  of  electron  density  and 
collision  frequency  profile  cards  and  for  limiting  the  ex- 
tent of  the  top  and  bottom  of  the  electron  density  profile. 
Input  of  ion  profiles  is  also  provided  for. 

(3)  SUBROUTINE  WVGUID: 


This  routine  controls  the  running  sequence  of  the  total 

computer  program.  Specific  operations  are  to: 

(a)  Initialize  the  full-wave  solution  of  the  ionospheric 
integration  routines. 

(b)  If  the  propagation  frequency  is  greater  than  1000  Hz 
and  the  variable  ' I EXACT 1 is  set  equal  to  zero,  then  a 
reference  height,  (RK),  is  set  through  the  routine  SET 
RK.  If  either  of  the  above  is  not  true,  the  reference 
height  is  taken  as  zero. 

(c)  Initialize  the  ground  reflection  coefficient  equations. 

(d)  Initialize  the  free-space  integration  calculations. 

(e)  Find  the  zeros  (i.e.,  eigenangles)  of  the  function  F (e ) 
(see  Equation  7),  through  the  routine  FZEROS.  Lagrange 
interpolation  is  used  if  the  frequency  is  greater  than 
1000  Hz  or  if  the  variable  IEXACT  is  greater  than  zero. 
Otherwise,  full  wave  solutions  of  the  ionospheric  re- 
flection coefficients  are  computed. 
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(f)  If  the  variable  IEXACT  is  equal  to  zero  or  the  fre- 
quency is  greater  than  1000  Hz,  then  the  use  of  the 
routine  FINAL  is  used  to  iterate  on  the  eigenangle 
solutions  of  F(e)  = 0 as  the  function  is  changed  from 
that  using  Lagrange  Interpolation  to  that  using  exact 
full-wave  solutions  of  the  ionospheric  reflection  co- 
efficients. 

(g)  Order  the  eigenangles  according  to  the  value  at  the 
real  part  of  the  eigenangles. 

(h)  Compute  and  punch  the  eigenangles  if  che  variable 

' NEIGEN ' is  set  equal  to  one.  This  is  done  through 
the  routine  NEOUT. 

(i)  Compute  and  ounch  the  mode  constant  parameters  if  the 
variable  ’ NPUNCH ' is  set  greater  than  zero.  This  is 
done  through  the  routine  NPOUT. 


(4)  SUBROUTINE  SETRH: 

(a)  This  routine  selects  the  values  at  THETA,  (e)  at  which 
full-wave  solutions  of  the  ionospheric  reflection  co- 
efficients are  to  be  carried  out  for  use  in  Lagrange 
interpolation. 

(b)  This  routine  also  selects  the  height,  to  the  nearest 
whole  kilometer,  at  which  the  function: 
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is  minimized.  In  the  above  expression  C = COS  (e),  R 
is  the  reflection  coefficient  matrix  and  the  summations 
are  over  all  e-points  at  which  full-wave  solutions  are 
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to  be  carried  out  for  use  in  Lagrange  interpolation. 

The  summation  is  also  over  all  elements  of  the  R re- 
flection matrix.  Derivatives  of  the  full -wave  solu- 
tions are  not  computed;  rather,  derivatives  of  the 
Lagrange  interpolation  formula  are  used.  Note  that 
the  full -wave  solutions  are  carried  out  to  the  bottom 
of  the  profile,  using  the  ionospheric  reflection  co- 
efficient integration  procedures  (i.e.,  subroutine 
INTE6)  after  which,  the  full  wave  solution  is  then 
carried  out  in  an  upward  direction  through  free  space 
over  a curved  earth  (by  use  of  the  free  space  integra- 
. tion  routine  FSINT6)  to  various  heights  which  are  in- 
creased successively  by  intervals  of  one  kilometer. 

That  height  at  which  the  minimum  occurs  is  printed  out 
as  the  'REFLECTION  HEIGHT'  and  is  used;  thereafter,  as 
the  Reference  Height  at  which  the  function,  F(e)  is  to 
be  computed. 

(5)  SUBROUTINE  NEOUT: 

This  routine  provides  for  punched  card  output  of  eigen- 
angles. 

(6)  SUBROUTINE  NPQUT: 

This  routine  provides  for  computing  and  printing  tables 
and  punched  card  output  associated  with  the  * NPUMCH ' 
option. 

(7)  SUBROUTINE  INTEG: 

This  subroutine  performs  an  integration  of  the  differential 
equations  for  the  ionosphere  reflection  matrix  using  Runge- 
Kutta  integration  formulas.  The  integration  variables  are 
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the  elements  of  the  matrix  (R+l)/C  where  R is  the  reflection 
matrix  described  in  Equation  2.  If  1 IDERI V 1 is  set  non- 
zero, the  derivatives  of  the  (R+l)/f.  elements  wrt  C = COS 
(THETA)  are  also  integration  variables.  The  set  of  heights 
at  which  pairs  of  integration  steps  begin  and  end  is  stored 
in  the  array  'RKHTS'.  Sizes  of  the  steps  are  determined 
by  comparing  the  values  of  the  elements  of  (R+1)/'C  after 
a pair  of  steps  and  values  of  the  same  variables  after  a 
single  double-size  comparison  step.  The  (R+l)/C  variables 
used  in  the  comparison  step  are  denoted  as  'X'.  If  the 
difference  is  too  large,  the  step  size  pairs  are  cut  in 
half  by  adding  a new  height  to  the  list  in  'RKHTS'.  In 
order  to  enhance  stability  in  other  parts  of  the  program, 
no  heights  are  deleted  from  the  list  unless  the  list  is 
reset  by  a call  to  the  SET  RK  subroutine. 

(8)  SUBROUTINE  ENNU : 

Computation  of  electron  density  and  collision  frequency 
(and  ion  density  if  appropriate)  as  a function  of  height. 

If  profile  was  input  from  formatted  cards,  logarithmic 
interpolation  is  used.  See  also  notes  in  subroutine 
PRFLIN. 

(9)  SUBROUTINE  INITLR: 

This  routine  computes  the  coefficients  of  the  Booker  Quartic 
equation  and  solves  for  its  roots.  The  routine  then  com- 
putes the  value  of  (R+l)/C.  For  reflection  from  a sharply 
bounded  anisotropic  ionosphere  of  semi -infinite  extent 
where  R is  the  reflection  coefficient  matrix.  The  solution 
is  used  as  the  initial  condition  ior  Runge-Kutta  integration. 
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The  solution  is  based  on  the  material  of  reference  6. 
Derivatives  wrt  C=C0S  (THETA)  are  also  computed  if  the 
variable  'IDERIV'  is  set  non-zero. 

(10)  SUBROUTINE  QUARTIC: 

This  routine  obtains  the  solution  for  the  roots  of  a 
fourth-order  polynomial  (QUARTIC  Equation).  A summary  of 
pertinent  equations  is  given  in  reference  6. 

(11)  SUBROUTINE  TMTRX: 

This  routine  computes  the  elements  of  the  ' M * matrix  of 
Equation  23.  Those  combinations  of  *M'  matrix  elements 
used  iri  the  ' T 1 matrix  which  do  not  include  use  of  THETA 
are  the  final  output  of  this  routine.  Computations  of 
quantities  which  are  not  functions  of  height  or  of  THETA 
are  carried  out  in  the  routine  INIT  T. 

(12)  SUBROUTINE  SMTRX : 

This  routine  computes  the  coefficients  used  in  the  differ- 
ential equations  for  (£+l)/C.  These  are  stored  in  common 
area  'S  MTX'  and  are  analogous  to  'S'  matrix  elements  given 
by  Equation  20.  Derivatives  of  these  coefficients  wrt 
C=C0S  (THETA)  are  also  computed  if  'IDERIV'  is  set  non- 
zero. 

(13)  SUBROUTINE  DIFFEQ: 

This  routine  computes  the  derivative  of  the  differential 
equations  for  (R+l)/C,  where  R is  the  ionospheric  reflec- 
tion matrix.  The  equations  are  derived  from  the  differen- 
tial equations  for  'R'as  given  in  reference  5.  Storage 
into  the  array  'R  MTRX'  is  made  so  that  the  equations  may 
be  used  with  either  the  main  set  of  integration  variables. 
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or  with  the  comparison  set,  X,  Differential  equations  for 
the  derivatives  of  (R+l)/C  wrt  C=C0S  (THETA)  are  also  used 
if  ' IDERI V ' is  set  non-zero.  Note  that  the  variable  called 
* R*  i n this  routine  is  actually  (R+l)/C. 

(14)  SUBROUTINE  RBARS : 

This  subroutine  computes  values  of  variables  which  may  be 
used  to  form  the  elements  of  the  RBAR  matrix,  where  RBAR 
represents  reflection  of  an  ELM  wave  from  the  earth's  sur- 
face. Namely,  RBARll=DENll/(C*NUMll-DENll)f  or  (1.0/RBAR11+ 

1 . 0 )/C=NUMl 1 /DENI  1 , and  RBAR22=nEN22/(C*NUM22-DEN22) , or 
(1 . 0/RBAR22+1 ,0)/C=NUM22/DEN22.  Derivatives  wrt  C=C0S 
(THETA)  are  also  computed  if  1 IDERI V1  is  set  non-zero. 

Note  that  the  equations  are  formulated  in  such  a way  that 
a smooth  transition  is  made  from  the  'CURVED  EARTH'  form 
to  the  'FLAT  EARTH'  form.  See  also  notes  in  subroutine 
MDHNKL  regarding  definitions  of  hankel  function  parameters. 

The  value  of  earth's  radius  is  such  as  to  make  2 . Q/RE=3 . 1 4E-4 - 
Computation  at  THEfA=90°  is  not  excluded. 


(15)  SUBROUTINE  MDHNKL: 

This  subroutine  computes  values  of  variables  which  may  be 
combined  to  form  modified  hankel  functions  as  described 
in  'TABLES  OF  THE  MODIFIED  HANKEL  FUNCTIONS  OF  ORDER  ONE 
THIRD  AND  OF  THEIR  DERIVATIVES' , by  the  staff  of  the  com- 


Fu 


tation  labcratcr".  Harvard  University  Pre$c;  1945.  The 
notation  is  such  that  the  actual  H1=H1*EXP(-E).  The  actual 
H2=H2*EXP(E).  Actual  derivatives  wrt  argument,  Z,  are 
H1P*EXP(-E)  and  H2P*EXP(E). 
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(16)  -SUBROUTINE  FS1NT6: 

This  routine  performs  an  integration  of  the  differential 
equations  for  the  ionosphere  reflection  matrix  through  a 
free  space  region  over  a curved  earth.  The  integration  may 
be  performed  in  either  a positive  or  negative  height  di- 
rection, but  in  this  program  the  integration  is  always 
upward.  The  integration  variables  are  the  elements  of 
the  matrix  (R+l)/C  where  R is  the  reflection  matrix.  The 
solution  is  based  on  Budden,  reference  7,  in  particular  the 
material  on  pp.118,  327-329,  336-338,  and  343-345.  If 
' IDERIV * is  set  non-zero,  the  derivatives  of  (R+l)/C 
elements  wrt  C=C0S  (THETA)  are  also  integration  variables. 
Computation  at  THETA=90  is  not  excluded.  Also,  the  equa- 
tions are  formulated  in  such  a way  that  a smooth  transi- 
tion is  made  from  the  'CURVED  EARTH'  form  to  the  'FLAT 
EARTH'  form  for  appropriate  values  of  THETA.  The  initial 
and  final  values  of  the  integration  variables  are  stored 
in  the  common  area  ' INTEGR' . This  routine  carries  out  the 
computation  of  height-gain  coefficients  Q,G,A,B  for  two 
conditions  on  the  upgoing  wave  at  each  height=Zf,  namely 
El 1 =1  ,EY=0  and  E11=0,EY=1.  Each  of  the  coefficients 
Q,G,A,B  is  divided  by  C=C0S  (THETA).  Computation  of  the 
upgoing  fields  Ell  and  EY  at  height=Zt  for  the  two  con- 
ditions described  above  are  also  done.  The  integra- 
tion proceeds  from  height  Zfa  to  height  Zt  when  ' FSINTG' 


is  called. 


(17)  SUBROUTINE  LAGRNG: 

This  routine  performs  Lagrange  interpolation  of  reflection 
coefficients  in  the  COS  (THETA)  plane.  Also  to  obtain 
derivatives  of  interpolated  values  WRT  COS  (THETA)  the 
Lagrange  interpolation  formula  itself  is  differentiated 
WRT  COS  (THETA). 

(18)  SUBROUTINE  FINAL: 

The  routine  for  following  the  eigen-angles  as  the  F func- 
tion is  changed  from  that  using  Lagrange  interpolation  to 
that  using  exact  full-wave  solution  values  of  reflection 
coefficients. 

(19)  SUBROUTINE  FZEROS:  (TLEFT ,TRIGHT ,TB0T ,TT0P ,TMESH ,T0L , 

MPRINT, ZEROS, NR  Z) 


For  Root- Finder  FZEROS  is  a routine  for  finding  the  zeros  of 
a complex  function,  F,  which  lie  within  a specified  rec- 
tangular region  of  the  complex  (THETA)  plane,  provided 
the  function  has  no  poles  in  the  vicinity  of  the  rectan- 
gle. 


EXPLANATION  OF  PARAMETERS— 

TLEFT  - value  of  real  part  of  THETA  at  left  edge 
of  rectangle. 

TRIGHT  - value  of  real  part  of  THETA  at  right  edge 
of  rectangle. 
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TMESH  - set  equal  to  about  half  the  average  spacing 
between  zeros  within  the  rectangle.  A smal 
ler  value  may  be  used  as  a safety  measure, 
but  too  small  a value  will  result  in  ex- 
cessive run  time. 

TOL  - tolerance  to  which  zeros  are  to  be  found. 

If  two  zeros  are  closer  than  'TOL',  the 
root-finder  will  stop  with  an  error  mes- 
sage. 

MPRINT  - normally  set  to  zero.  A non-zero  value 
leads  to  print-out  for  debugging. 

ZEROS  - output  list  of  (complex)  values  of  THETA 
at  which  zeros  are  found. 

NR  Z - the  number  of  zeros  found. 

SUBROUTINES  TO  BE  PROVIDED- 

FCT  VAL  - (THETA, F)  - to  return  the  value  of  the 
function,  F,  at  the  point  in  the  complex 
plane  specified  by  'THETA'. 

F DFDT  - (THETA, F,DFDT)  > same  as  ' FCT  VAL'  except 

that  the  derivative,  DFDT,  of  the  function 
WRT  THETA  must  also  be  returned. 


(20)  SUBROUTINE  QUAD: 

For  Root-Finder  finds  the  solution  for  the  real  roots  of 
a Quadratic  Equation  of  the  form  A*X**2+2.0*B*X+C=0.0, 
where  X is  called  'SOL'  in  this  routine.  The  number  of 
real  roots  found  is  given  by  'NR  SOL'.  A value  of  1 for 
'NR  SOL'  results  from  the  Quadratic  Equation  approaching 


linearity.  Used  by  subroutines  FZEROS  and  NO  MESH. 


For  Root-Finder  the  routine  for  finding  exact  (in  the 
sense  of  NO  MESH  approximation)  locations  of  zeros  of  the 
function,  F,  for  which  a complete,  but  approximate,  set 
was  found  in  subroutine  FZEROS. 

(22)  SUBROUTINE  FINDF: 

This  routine  calls  upon  the  routine  FCT  VAL  to  compute 

F(8). 

(23)  SUBROUTINE  FCT  VAL: 

This  routine  is  for  computing  F function  values  at  mesh 
points,  called  on  principally  by  subroutines  FZEROS  and 
NO  MESH.  This  is  the  modified  F funption  which  has  no 
poles  and  which  has  no  zeros  at  THETA=90. 

(24)  SUBROUTINE  F DFDT : 

This  routine  for  computing  function  F(e)  values  and  their 
derivatives  WRT  THETA  at  arbitrary  values  of  THETA.  Called 
on  principally  by  subroutines  NO  MESH  and  FINAL.  This  is 
the  modified  F function  which  has  no  poles  and  which  has 
no  zeros  at  THETA=9Q. 

(25)  SUBROUTINE  XFER: 

Routine  for  transferring  one  array  into  another. 

(26)  SUBROUTINE  R OUT 

Output  of  Runge-Kutta  integration  variables,  used  only  for 
debugging. 

(27)  FUNCTION  CASIN 

Routine  for  computing  the  complex  sine  function  of  a com- 
nlex  argument. 


V.  RUNNING  THE  PROGRAM 

A.  Control  Cards 

These  cards  contain  mnemonic  words  denoting  the  program  opera- 
tions to  be  executed.  These  words  will  be  assumed  to  begin  in  column  1 of 
the  card.  In  the  text  of  this  outline,  thes1  words  will  be  enclosed  in 
apostrophes.  Blanks  will  be  denoted  by  a space  indicated  by  to 
clarify  positioning  of  blank  columns.  These  cards  are  summarized  in 
Table  4. 

(1)  ' PROFILE- i 1 initiates  reading  of  the  ionospheric  profile. 
An  alternative  method  for  specifying  an  ionospheric  profile  is  presented 
in  Section  B. 

The  value  of  i indicates  the  number  of  species  to  be  used.  It  may 
have  one  of  two  possible  values:  1 or  3.  If  the  position  for  i is  left 

blank,  i = 1 is  assumed. 

The  'PROFIUM'  card  must  be  followed  by  an  alphanumeric  card 
which  may  be  used  to  identify  the  profile. 

The  profile  cards  contain  the  following  parameters  punched  accord- 
ing to  the  format  (F7.2,4X,5(1X,E9.2) : height  in  kilometers  and  the 

specie  densities  in  number  per  cubic  centimeter.  The  first  specie  is 
electrons.  The  cards  are  input  in  order  of  descending  altitude  and  the 
profile  is  terminated  with  a dummy  height  with  value  less  than  zero.  A 
maximum  of  101  profile  cards  may  be  used. 

In  the  case  of  i = 3,  the  program  assumes  that  the  first  two  spe- 
cies read  are  electrons.  N and  sinolv  charqed  positive  ions,  Nt.  The 

6 i 

required  third  specie  is  thus  singly  charged  negative  ions,  NT,  and  their 
density  is  computed  and  printed  by  the  program  as  NT  = N4-^  - Ng. 
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In  the  integration  of  the  ionospheric  reflection  elements  through 
the  ionosphere,  the  program  interpolates  exponentially  between  input 
values.  Thus,  for  example,  an  exponential  profile  can  be  input  with  only 
the  top  and  bottom  densities  specified. 

(2)  1 COLFREQ ' initiates  reading  of  an  ionospheric  collision 
frequency  profile.  An  alternative  form  for  specifying  exponential  colli- 
sion frequencies  is  discussed  in  Section  B.  This  profile,  if  used,  must 
follow  the  ' PROr ILE_i 1 input  because  i specifies  the  number  of  species. 

The  'COLFREQ'  card  is  immediately  followed  by  the  profile.  The 
input  format  and  order  is  the  same  as  used  for  ' PROFI LE_i  * , except  that 
collision  frequencies  in  collisions  per  second  for  electrons,  and  when  i 
is  greater  than  1 for  positive  ions  and  negative  ions,  must  be  input. 

The  profile  is  input  in  order  of  descending  height  and  is  terminated  by  a 
dummy  height  of  value  less  than  zero.  A maximum  of  50  collision  frequency 
profile  cards  may  be  used.  As  with  the  ionospheric  specie  profiles,  the 
program  interpolates  exponentially  between  input  values  and  there  need  be 
no  correspondence  between  the  altitudes  used  to  define  the  two  profiles. 

When  'COLFREQ'  is  used,  the  collision  frequency  profile  can  be 
over-ridden  later  in  the  job  by  the  exponential  collision  frequency  speci- 
fication described  in  Section  B-l.  Note  that  in  this  case  the  exponential 
parameters,  'COEFNU'  and  ' EXPNU ' , must  be  input  through  NAMELIST. 

(3)  'ID'  indicates  that  the  next  card  is  identification  for 
the  data  being  run.  This  identifying  card  is  merely  read  and  printed. 

It  may  contain  any  alphanumeric  information  desired. 

(4)  '_&DATUM'  and  '_&END'  initiate  and  terminate  reading  of 
Namelist.  The  form  of  this  input  is  described  below. 
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All  cards  appearing  between  '_&DATUM'  and  '_&END'  must  have  a 
blank  in  column  1.  In  the  sample  data  decks  this  will  be  indicated 
by  '_'. 

Variable  names  are  punched  with  no  imbedded  blanks.  The  name  is 
followed  by  an  equal  sign  (=)  and  the  value  of  the  variable  punched  in 
any  valid  format.  Integer  variables  may  only  be  input  with  integer  num- 
bers and  real  variables  may  be  input  with  either  integer  numbers  or  float- 
ing point  numbers.  The  value  of  the  variable  must  be  followed  by  a comma. 

All  blanks  in  the  values  punched  are  treated  as  zeros.  A comma  is  the 
only,  valid  delimiter.  For  example,  1 I=l_* ' would  result  in  1=10.  If  a 
variable  name  is  repeated,  the  second  value  will  be  used. 

If  the  variable  defines  an  array,  the  array  may  be  filled  by  a 
string  of  values  separated  by  commas.  There  need  not  be  as  many  values 
specified  in  the  string  as  there  are  in  the  dimension  of  the  array.  The 

string  of  variables  may  be  continued  on  additional  cards  by  not  repeating 

the  variable  name.  Alternatively,  the  value  of  single  elements  may  be 
specified  by  subscripting  the  variable  name  before  the  equal  sign  such  as 
'ARRAY (3)  = -6.E3, 1 . 

Complex  variables  must  be  input  in  order  of  real  and  imaginary 
parts.  Arrays  of  complex  variables  are  input  the  same  as  described  above 
except  that  twice  as  many  values  are  required.  For  example,  'CARRAY  = 

1.,  3.,  -1.,  -3.,'  is  used  to  input  CARRAY(l)  = (1.,  3.)  and 
CARRAY (2)  = (-1.,  -3.). 

(5)  'QUIT'  signals  normal  termination  of  a job.  This  is  not 
required  provided  a /*  card  is  used  at  the  end  of  the  input  deck. 

(6)  A reasonable  order  of  input  is  shown  in  Table  4. 


TABLE  4 

SUMMARY  OF  CONTROL  CARDS 

PR0FILE_i  read  ionospheric  profiles  (i=l  or  3)* 

C0LFREQ_i  read  ionospheric  collision  frequency  profiles 
ID  read  and  print  identification  card(80  card  columns) 

_&DATUM  begin  Namelist  read 

_&END  end  Namelist  read  and  begin  Waveguide  calculations 
QUIT  end  of  job  (optional) 

/* 

♦Note:  If  i not  specified,  1 is  assumed. 

B.  Input  Variables 

(1)  General  Input  variables  needed  for  computations  of  the 
modal  solutions. 

'FREQ'  is  the  frequency  in  kilohertz. 

' MRATI0  is  the  ratio  of  the  mass  of  the  specie  to  the  mass  of  an 
electron . Default  values  are  for  an  electron,  'MRATI0  = 1'.  For  positive 
or  negative  ions  'MRATI0  = 58000'. 

An  exponential  collision  frequency  may  be  specified  for  each 
specie.  * C0EFNU ' is  the  collision  frequency,  in  collisions  per  second, 
at  the  ground.  ' EXPNU 1 is  the  height  variation  in  inverse  kilometers. 

The  collision  frequency  at  an  altitude  of  z kilometers  in  this  case  is 
defined  by: 

v(z) j = C0EFNU(j)*exp{ENPNU(j)*z) 

where  j=l  is  for  electron-neutral  particle  collisions,  j=2  is  for  positive 
ion-neutral  particle  collisions  and  j=3  is  for  negative  ion-neutral  parti- 
cle collisions. 


The  parameter  ' NUFLAG ' allows  for  a choice  of  exponential  collision 
frequency  profiles  to  be  used  in  the  calculations.  In  this  instance  values 
are  not  assigned  to  COEFNU(j)  and  EXPNU(j);  instead  default  values,  which 
are  built  into  the  MODESRCH  program  are  used  in  the  calculations.  With 
'NUFLAG  = O',  the  values  of  the  exponential  parameters  ' COEFNU ' and 
'EXPNU'  (as  described  in  Wait's  TN  300,  Reference  3)  are  used.  If 
'NUFLAG  = 1',  the  values  of  these  exponential  parameters  (as  computed  by 
Moler,  Reference  13)  are  used.  The  special  values  are: 

'NUFLAG  - O'  (Wait): 

COEFNU(l)  = 1.816E+11,  coll/sec 
C0EFNU(2)  = 4.540E+9,  coll/sec 
C0EFNU(3)  = 4.540E+9,  coll/sec 


EXPNU(l)  = -0.15  km 
EXPNU ( 2 ) = -0.15  km 
EXPNU(3)  = -0.15  km' 
'NUFLAG  = 1'  (Moler): 


-1 


-1 

■1 


COEFNU(l)  = 4.303E+11  coll/sec 
COEFNU ( 2 ) = 1.Q76E+10  coll/sec 
C0EFNU(3)  = 1.076E+10  coll/sec 
EXPNU(l)  = -0.1622  km'1 
EXPNU(2)  = -0.1622  km"1 
EXPNU ( 3 ) = -0.1622  km"1 

If  an  exponential  electron  collision  frequency  profile  is  to  be 
used  other  than  those  described  by  Wait  or  Moler,  'NUFLAG'  must  be  set  * 0 
and  the  proper  values  assigned  to  'COEFNU(j)''  and  :txPNu(j):. 

It  is  important  to  note  that  if  the  collision  frequency  profile  is 
entered  as  tabulated  values  via  the  control  card  ' COLFREQ ' and  then  in 


the  same  job  step,  additional  calculations  are  wanted  for  new  collision 
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frequency  values,  as  input  through  the  Namelist  variables  'COEFNU(j)'  and 
EXPNU(j)';  then,  ' NUFLA6 ' must  be  set  equal  to  zero  and  new  values 
assigned  to  'COEFNU(j)'  and  'EXPNU(j)'. 

An  exception  to  this  procedure  occurs  when  the  new  values  of 
'COEFNU(j)'  and  'EXPNU(j)'  are  those  denoted  as  "Moler's  values".  In  this 
case  the  parameter  1 NUFLAG*  is  set  equal  to  1 and  no  values  need  be 
assigned  to  'COEFNU(j)'  or  'EXPNU(j)1  in  that  this  is  done  automatically 
within  the  program. 

' RHO ' is  the  distance  in  Mm  from  the  transmitter.  This  variable 
is  used  only  in  punched  output.  It  is  useful  to  further  identify  punched 
data  that  is  being  generated  along  a propagation  path. 

The  geomagnetic  field  is  specified  by  three  variables.  1 AZ I M ' is 
the  clockwise  angle  between  magnetic  north  and  the  horizontal  propagation 
direction  in  degrees  east  of  north.  ' CODIP ‘ is  the  magnetic  co-dip  angle 
in  degrees  from  the  vertical  down.  The  magnetic  equator  is  specified  by 
'CODIP  = 90'.  'MAGFLD'  is  the  magnetic  field  intensity  in  webers  per 


square  meter. 

The  ground  conditions  are  specified  by  two  variables.  'SIGMA'  is 
the  conductivity  in  mhos  per  meter  and  'EPSR'  is  the  relative  dielectric 
constant. 1 

1 H 1 is  the  height  in  kilometers  at  which  the  modified  refractive 
index  is  unity.  This  is  the  height  to  which  the  eigenangles  are  referred. 

' REFLHT ' is  the  height  in  kilometers  which  is  used  to  normalize 
the  excitation  factor  defined  by  Wait.  'REFLHT'  must  not  be  zero. 

' GMAX ' is  the  maximum  separation  (in  degrees)  of  the  theta  angles 
at  which  full  wave  solutions,  to  be  used  in  Lagrange  interpolation,  are 
carried  out. 
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'SEP1  is  a real  variable  which  defines  the  minimum  separation  be- 
tween eigen  solutions. 

' RTOL 1 is  the  variable  which  determines  the  precision  of  the 
Runge-Kutta  integration  for  the  ionospheric  reflection  elements. 

1 NPUNCH ' determines  the  specific  parameters  to  be  punched  on  out- 
put cards. 

' CARDPN ' ic  an  option  for  punching  or  not  punching  on  cards  the 
outputs  from  the  'NPUNCH1  option. 

1 CARDPT ' is  an  option  for  printing,  or  not  printing,  the  values 
computed  using  the  'NPUNCH'  option. 

' NEIGEN ' is  the  option  for  punching  eigenangles  on  the  cards. 

' TALT ' is  the  height  cf  the  transmitting  antenna  in  km. 

' RALT ' is  the  height  of  the  receiving  antenna  in  km. 

Note:  Input  of  TALT  and  RALT  is  only  applicable  to  the  calculation 

of  modal  excitation  factors  as  described  in  Section  V-C-2.  Computed  out- 
put values,  as  a function  of  'RALT'  and  ’TALT’,  are  obtained  only  through 
the  option  NPUNCH  = 7. 

1 TMESH ' is  the  angular  dimension  of  the  mesh  squares  contained  in 
the  contour  rectangle.  This  value  is  in  degrees.  ‘TMESH1  should  always 
be  smaller  than  the  average  separation  of  the  eigenangles.  Also  'TMESH' 
should  be  chosen  smaller  than  the  separation  between  the  values  of 
'RANGER'  (maximum)  and  'RANGER'  (minimum)  or  the  values  of  ' RANGEI ' 
(maximum)  and  'RANGEI'  (minimum).  Unless  'TMESH'  is  assigned  a value  via 
NAMELIST,  it  is  computed  within  the  program  as: 

TMESH  = \/3.75/freqkHz  U32) 

' LUB ' is  a real  Variable  used  to  terminate  the  iterative  process. 

' LUB ' is  used  to  test  the  iterative  change  in  the  magnitude  of  the  complex 
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eigenangles.  The  iteration  is  stopped  when  the  change  in  the  magnitude 
of  the  complex  eigenangle  is  less  than  or  equal  to  'LUB'.  Unless  ' LUB ' 
is  assigned  a value  via  NAMELIST,  it  is  computed  within  the  program  as: 

LUB  = yi570/freqkHz#(0.0l)  (133) 

' I EXACT'  is  an  option  that  determines  whether  Lagrangian  interpola- 
tion or  the  "full  wave"  solution  is  used  in  initial  stages  of  the  program. 

I EXACT  = 0 is  for  Lagrangian.  I EXACT  = 1 is  for  "full  wave". 

(2)  Exponential  profiles  (electrons  only) 

An  exponential,  electrons  only,  ionospheric  profile  may  be  speci- 
fied. Inc  profile  is  computed  as  described  in  Wait's  NBS  TN  300,  Reference 
3,  where 

(or(z)  = 2.5X105  exp[p(z-h' )]  = 3.18254X109  N(z)/v(z)  (11) 

and  p is  in  inverse  kilometers,  z and  h‘  are  in  kilometers,  N(z)  is  the 
electron  density  in  electrons  per  cubic  centimeter  and  v(z)  is  the  colli- 
sion frequency  in  collisions  per  second.  The  values  used  to  compute  v(z) 
are  'COEFNU(l)'  and  ' EXPNU(1 ) ' and  are  given  in  Section  V-B-l.  Note  that  the 
term  'BETA'  is  3 and  ' HPRIME * is  h*. 

The  equation  for  computing  the  electron  density  (N(z),  electrons/ 

O 

cm  ) at  height  z is  given  by: 

N(z)  = 7 . 8554X10” 5 • COEFNU(l)  • 

[exo(((BFTA  + EXPNU(l))z)  - BETA  * HPRIME)]  (134) 

' SCLHTS ' is  a real  variable  which  indicates  the  number  of  scale 
heights  above  h'  which  will  be  used  to  denote  the  top  of  the  profile  when 
the  p,h‘  exponential  electron  density  profile  is  used. 
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The  top  of  the  profile  may  be  modified  by  choosing  a value  for  the 
variable  SCLHTS.  The  relationship  is  that: 

Top  Height  = Integer  ^HPRIME  + S^^-$  + 0.5^  (135) 

The  nearest  integral  value  of  altitude  as  given  by  'Top  Height'  is  used  to 
set  the  top  of  the  profile.  All  heights  above  this  value  are  neglected  in 
the  MODESRCH  computations. 

The  bottom  of  the  exponential  profile  is  set  by  assigning  a mini- 
mum  value  (i.e.  ENMIN)  of  electron  density  in  electrons/cm  . All  alti- 
tudes (z),  at  which  the  corresponding  density  is  less  than  'ENMIN'  will  be 
neglected. 

(3)  VLF/LF  - Tabular  Electron-Ion  Density  Profiles. 

Computing  efficiency  for  VLF  and  LF  may  be  improved  by  cutting  off 

the  top  and  bottom  heights  of  the  input  ionospheric  profile. 

When  the  particle  density  profiles  are  input  to  the  program  via 

'PROFILER'  (i  = 1 implies  electrons  only)  ( i - 3 implies  electrons  and 

ions),  the  top  and  bottom  of  the  profile  may  be  cut  off  using  the  criteria, 

as  presented  in  Section  II,  D-2.  In  that  section  it  is  stated  that  the 

top  part  of  the  input  ionospheric  profile  which  may  be  neglected  in  the 

calculations  is  defined  as  that  altitude(z)  above  which: 

B(z)  > Maximum  (TEMPO-B,  20  “ ) (17) 

e 

where  'TEMPO-B'  is  assigned  a value  (e.g.  2.0)  and  B(z)  is  given  by 

eq.  16.  Also  an  additional  requirement  for  cutting  off  the  top  of  the 

profile  is  that  the  electron  density  must  be  as  great  as  ' TOPEN ’ . The 

o 

variable  'TOPEN'  is  assigned  a value  (e.g.  1000  electrons/cm  ).  The  top 
of  the  profile  is  taken  to  be  the  higher  of  the  two  heights  corresponding 
to  B(z),  (equation  17),  and  to  'TOPEN'. 
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The  bottom  of  the  input  -ionospheric  profile  is  neglected  (for 
VLF/LF  cases)  at  those  altitudes  for  which  the  computed  value  of  B in 
equation  16  is  less  than  ‘CUTOFF1.  The  variable  ‘CUTOFF1  is  assigned  a 
value  (e.g.  0.0001).  The  relationship  for  Cutoff  is: 

B(z)  < CUTOFF  (18) 

If  it  is  not  desired  to  cut  off  the  profile  bottom  for  certain 
calculations  then  the  Namelist  parameter  ' ICUT ‘ must  be  set  equal  to  zero. 

(4)  ELF  Tabular  Electron-Ion  Density  Profiles 

The  same  criteria  for  the  variable  * PROFILE ^i 1 as  was  presented  for 

the  VLF/LF  case  is  applicable  to  ELF (i.e.  i = 1 or  blank  implies  elec- 
trons only  and  i = 3 corresponds  to  electrons  and  ions). 

In  the  case  of  ELF  the  profile  top  and  bottom  are  not  cut  off  and 
the  Namelist  variable  ‘ICUT1  is  not  applicable. 

(5)  Namelist  Variables  with  Initial  Values. 


Initial  values  of  the  Namelist  variables  are  presented  in  Table  5. 


TABLE  5 


NAMELIST  VARIABLES  AND  INITIAL  VALUES 

NAME 

VALUE 

UNITS 

NAME 

VALUE 

UNITS 

NPROF 

None 

- 

ICUT 

1 

FREQ 

0.0 

kHz 

NUFLAG 

0 

H 

50.0 

km 

C0EFNU(3) 

1.816+11, 

4.540E9, 

4.540E9 

coll /sec 

tl 

ll 

REFLHT 

50.0 

km 

EXPNU (3) 

^0,15,  ~0,15, 
-0.15 

km-1 

II 

RHO 

0.0 

Mm 

AZIM 

None 

degrees 

SEP 

0.1 

degrees 

CODIP 

None 

degrees 

RTOL 

0.001 

degrees 

MAGFLD 

None 

WEBERS/m2 

GMAX 

5.0 

degrees 

SIGMA 

4.64 

mho/m 

EPSR 

81.0 

- 

BETA 

None 

km'1 

TOPEN 

1000. 

electrons/cnf 

HPRIME 

-99.0 

km 

ENMIN 

0.1 

electrons/cm' 

SCLHTS 

3 

RANGER 

None 

degrees 

MRATI0(3) 

1,58000.0 

58000.0 

- 

RANGEI 

TEMPOB 

None 

2.0 

degrees 

CUTOFF 

0.0001 

- 

TALT 

0.0 

km 

NEIGEN 

0 

- 

RALT 

0.0 

km 

NPUNCH 

1 

- 

IEXACT 

0 

- 

CARDPT 

0 

- 

TMESH 

-l.C 

degrees 

CAROPN 

1 

- 

LUB 

-1.0 

- 

Notes:  Numbers  in  parenthesis  after  Name 

Lack  of  decimal  point  indicates  i 

indicate  dimensions, 
nteger  variables. 

80 


(6)  The  Eigenangle  (e) 

The  modal  solutions  of  equation  1,  which  are  denoted  as  complex 
eigenangles  (e  = 9real  + 6 imagi nary ) ’ are  determ1’ned  within  a bounded 
region  of  the  complex  "THETA"  plane  defined  by  a set  of  limiting  THETA 
values.  This  bounded  region  will  be  called  the  "contour  rectangle"  and 
the  limiting  THETA  values  are  denoted  by  "RANGER"  (minimum  and  maximum) 
and  ‘ RANGEI ' (maximum  and  minimum).  These  parameters  are  portrayed  in 
Figure  15. 

Where  Point: 

A:  RANGER  (minimum),  RANGEI  (maximum) 

B:  RANGER  (maximum),  RANGEI  (maximum) 

C.  RANGER  (minimum),  RANGEI  (minimum) 

D:  RANGER  (maximum),  RANGEI  (minimum) 

The  small  squares  inside  the  "contour  rectangle"  are  called  the 
"Mesh  Squares".  'RANGER'  is  the  real  part  in  degrees  of  the  minimum  and 
maximum  values  assigned  to  the  contour  rectangle. 

'RANGEI'  is  the  imaginary  part  in  degrees  of  the  minimum  and  maximum 
values  assigned  to  the  contour  rectangle. 


Figure  15.  Showing  the  Contour  Rectangle  ABCD  and  Mesh  Squares 
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i.e.  RANGER  = Minimum,  maximum, 

RANGE  I = Maximum,  minimum 

Note:  The  minimum  value  must  be  given  before  the  maximum  value  for  RANGER 

while  the  maximum  value  must  be  given  first  for  RANGEI. 

During  program  execution,  the  contour  rectangle,  as  described  by 
RANGER  and  RANGEI,  is  automatically  divided  into  small  sub-rectangles. 

This  is  done  to  increase  computation  efficiency.  The  division  process  is 
applied  only  to  the  RANGER  values  while  the  RANGEI  values  remain  the  same 
as  those  input  through  NAMELIST. 

The  algorithm  is  that  the  number  of  segments  'NS*  i.ito  which  the 
original  contour  rectangle  is  divided  is  given  by: 

NS  = TRUNCATION  {[BANGER(max)-^NGER(min)-LUBj  +1}  (136) 

The  number  of  degrees  in  each  segment  is  given  by: 

AO  _ RANGER  (max)  - RANGER (min) 
a ^ 

C.  Program  Outputs 

For  purposes  of  clarity  in  describing  program  outputs,  the  follow- 
ing symbols  will  be  used: 

k = wave  number  in  km"* 

hr  = reference  height  for  Wait's  excitation  factor  (REFLHT) 

i = /r 

e = (0r>Q.j)  3 final  mode  solution  referenced  to  H 

0'  3 (0^.9^)  3 0 referenced  to  the  ground 

a = -8686  k Im(sine')  = attenuation  rate  in  dB/Mm 
v/c  = 1/Re(sine')  = phase  velocity/speed  of  light 

Note:  The  above  procedure  for  sub-dividing  the  RANGER  value  is  done  only 

for  VLF/LF  calculations  and  is  not  applied  for  calculations  at  ELF. 
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Tfzrm**’ ‘ ; .-^.y^pggwg  '--«t«-  1 rj*?TT  '* -iT ^rr^‘  ^'l. ^T.^I, _ _ "*  __ 

A_  = excitation  factor 
mn 

X_  = modified  excitation  factor 
mn 

A „ = normalized  excitation  factor  = - . 5i khv,Xm„ 
mn  r mn 

The  terms,  Xmn,  Amn  and  Amn,  are  elements  of  3 by  3 complex 
matrices.  The  individual  elements  are  subscripted  first  by  m = V,  E or  B 
to  specify  a vertical,  end  fire  or  broadside  dipole  and  second  by  n = Z, 

Y or  X to  specify  the  field  component  excited.  Thus,  Xyz  is  the  z compo- 
nent of  the  electric  field  excited  by  a vertical  dipole  source.  The  terms 

XmM  and  a„  are  also  functions  of  the  transmitter  and  receiver  altitudes 
mn  mn 

(TALT  and  RALT).  These  are  the  excitation  factors  mentioned  in  Section  II, 
H.  The  terms  XQ  and  AQ  specify  Xyz  and  Ayz  for  both  transmitter  and  re- 
ceiver at  the  ground.  In  both  printed  and  punched  output,  each  XQ,  Xmn 
and  Amn  is  given  as  magnitude  and  phase  in  radians  and  each  aq  and  Amn  is 
given  as  20  log  (magnitude)  and  phase  in  radians.  Note  that  in  the 

MODESRCH  computer  program  all  the  A terms  are  used  whereas  only  X,  . 

mn  vz 

Xez,  Xg^,  XQ  and  AQ  of  the  other  excitation  terms  are  utilized. 

The  output  from  the  computer  program  consists  of  the  following: 

(1)  Computer  Listing  Output” 

(a)  ID  Information 

(b)  PROFILE  information 

(c)  NAMELIST  information 

(d)  Values  of  ’TMESH'  and  'LUB1 

Also,  heights  and  electron  densities  of  top  and  bottom 

nf  nrn-f-ilo 

w . r - 

(e)  Value  of  TEMPO-B  at  top  of  the  profile,  value  of  Wait's 
OMEGA-R  at  top  of  the  profile  or  height  of  the  profile 
where  Wait's  OMEGA-R  = 2.5*105 
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(f)  Reflection  height  --  height  at  which  ionospheric  reflec- 
tion coefficients  are  interpolated  and  the  height  at 
which  the  ground  reflection  coefficients  are  computed 
(e.g.,  the  height  where  F(e)  is  computed). 

(g)  Theta  range  for  each  'contour  rectangle1. 

(h)  H;  the  height  at  which  the  eigenangle  solutions  are 
computed 

(i)  Mode  No.  n 

(j)  THETA  (er,  8^)  The  final  mode  solution  referenced  to  H 
(er  and  8^  are  in  degrees) 

(k)  a(e^):  Attenuation  rate  dB/Mm  where  a = -8686*K*Imag 
(SIN  8')  and  where  K is  the  wave  number  in  km"* 

(l)  V/C(e^):  The  phase  velocity/speed  of  light 

V/C  = Real (SINS') 

(m)  Magnitude  and  Phase  of  the  modal  excitation  factor  as 
defined  by  Wait.  (AQ(dB) , <^Ao  (radians)) 

(n)  THETAP  (e^,  el)  The  e eigenangle  referenced  to  the 
ground  (e^,,  are  in  degrees) 

(o)  Polarization  mixing  ratio: 


(1  - ft  ft) 

(jLRll  iRl|) 

U\h  jAl) 

U - «R||  ||R||) 

When  NEIGEN  = 1 that  ionospheric  height  where  the  electron  density 
is  equal  either  to  the  value  of  the  input  variable  ENMIN  (for  8,  h' 
electron-density  profiles)  or  to  the  lowest  height  of  the  input  profile 
(for  tabular  electron  density  profiles)  is  printed.  This  parameter  is 
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denoted  as  "D"  and  corresponds  to  the  variable  "D"  in  the  reference  1 
WAVEGUIDE  program  where  D is  defined  as  the  height  in  kilometers  below 
which  ionospheric  integration  is  terminated. 

Also  when  NEIGEN  = 1,  individual  eigenangles  (referenced  to  the 
height  H)  are  printed. 

If  NEIGEN  - Q,  the  above  variables  are  not  printed. 

(2)  Punched  Output 

When  NEIGEN  = 1 the  value  of  "D"  as  described  above  is  punched  and 
also  the  individual  eigenangle  solutions  are  punched.  These  parameters 
are  punched  in  the  format  of  usual  NAMELIST  variables.  When  NEIGEN  = 0, 
these  variables  are  not  punched. 

Additional  punched  output  from  the  program  is  obtained  with  the 
variable  NPUNCh. 

NPUNCH  options  for  obtaining  output  cards: 

NPUNCH=1***  gives  output  cards  for  horizontally  homogeneous 
mode-sum  or  WKB-sum  in  terms  of  (T'S). 

NPUNCH=2***  gives  output  cards  in  terms  of  SNVLF  output. 

NPUNCH=7***  gives  output  cards  for  input  into  ELF-WKB 
mode-sums. 

NPUNCH=8***  gives  output  cards. for  input  to  mode  conversion 
in  terms  of  (FOVR). 

NPUNCH=9***  gives  output  cards  for  input  into  mode  conversion 
in  terms  of  both  (T'S)  and  (FOVR). 

NPUNCH=0**+  the  above  variables  are  not  computed. 

CARDPN=0***  gives  usual  mode  summary  print  out  but  no  cards. 

CARDPN=1***  gives  usual  mode  summary  print  and  cards. 

CARDPT=0***  causes  the  output  cards  to  not  be  listed. 

CARDPT=1***  causes  the  output  cards  to  be  listed. 
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When  NPUNCH  equals  1,  2,  7,  &,  or  9,  each  entry  into  '&DATUM'  results 
in  a card  containing  RHO,  FREQ,  AZIM,  CODIP,  MAGFLD,  SIGMA  and  EPSR  in  the 
format: 

( ' R' ,F7.3,'  F' ,F8.4* , A\F8.3,'  C',F8.3,'  M',E10.3,'  S',E10.3,’ 
E',F5.1) 

and  each  exit  via  1 &END 1 results  in  a blank  card.  In  other  program  de- 
scriptions, the  first  card  is  referred  to  as  the.  RFACMSE  header  card. 

NPUNCH  = 1 generates  two  cards  per  mode  in  the  order 
(l,0‘»Tl,T2)  and  {2,e',T3,T4) 
with  format  (I1,2F9.5,4E15.8) . 

Where: 


T s2  (1  + || ) 2 ( 1 * jRj.  iRj.) 


9'  = complex  eigenangle  referenced  to  the  ground  and  is  punched  as  er 
(degrees)  and  el  (degrees).  Examination  of  Table  1 and  equation  139  shows 
that  the  excitation  “X"  values  can  be  obtained  from  the  "T"  values.  The 
"T"  values  are  punched  as  complex  numbers. 

NPUNCH  * 2 generates  a single  card  per  mode  containing 
(a,  V/C , |a0|  ,<f>Ao)  with  format  (4F10.5).  Here  AQ  is  in  dB  above  one 
pv/meter  and  <j>A  is  in  radians.  This  format  is  denoted  as  SNVLF. 

’•  NPUNCH  = 7 generates  two  cards  per  mode.  The  first  card  contains 
e'  with  a comma  after  the  real  and  imaginary  parts.  Here  and  ej-are 
in  degrees.  The  second  card  contains  XVZ,XBZ  and  X£Z  for  transmitter  and 
receiver  heights  of  RALT  and  TALT.  There  is  a comma  after  each  term. 

This  form  of  output  is  suitable  for  a Namelist  type  input. 

These  values  are  punched  as  magnitude  and  phase  of  the  complex 
excitation  number.  Two  comments  which  are  pertinent  to  the  NPUNCH  = 7 
output  are: 

(a)  The  values  of  the  Xmz * s are  computed  as  functions  of  the 
transmitter  and  receiver  heights  (TALT  and  RALT). 

(b)  If  the  punched  output  is  to  be  used  as  input  in  the 
WDB-ELF  Field  Strength  computer  program  (reference  14), 
then  the  NAMELIST  terms  TALT  ~nd  RALT,  input  to  the 
MODESRCH  program  must  be  zero  for  compatibility. 

NPUNCH  = 8 generates  one  card  per  mode.  The  card  contains  the 
variables  (e ’,|XJ  ,<j>  , FOVR,  HOFWR)  using  the  format  (0P2F9.5,1PE14.5, 

0PF9. 5,1P2F.16.8;0?F7 . ?)  Here  o'  is  punched  as  ei  and  0l  each  in  deqrees. 
<l»  is  in  radians  and  'FOVR'  is  a complex  number.  The  variable  'HOFWR' 
is  the  profile  height  (km)  which  corresponds  to  a value  of  Wait's 
OMEGA-R  = 2.5*10+5. 


D.  Examples  of  Program  Inputs  and  Outputs 

Example  I illustrates  some  of  the  options  for  data  input.  This 
example  is  for  an  exponential  electron  density  profile  defined  by  ‘BETA1 
and  ‘HPRIME’  parameters.  In  this  case  the  exponential  collision  frequency 
profile,  corresponding  to  that  described  by  Wait,  (Reference  3),  is  in- 
cluded by  setting  the  1 NUFLAG ’ variable  to  zero.  Also,  putting 
NPUNCH  = 1 or  greater  causes  the  mode  constants  to  be  printed  in  the  out- 
put listing  and  if  'CARDPN=r,  (which  is  the  default  value)  functions  of 
the  excitation  factors  are  punched.  The  value  NEIGEN  = 1 gives  both  a 
listing  and  punched  cards  for  the  eigenangles  at  a height  of  50  km.  The 
printed  output  is  also  shown  in  example  I. 

Examp1 e II  lists  the  output  cards  as  computed  from  'NPUNCH  = 1' 
as  presented  in  example  I.  Note  that  the  first  card  gives  the  values  for 
RHO,  FREQ,  AZIM,  CODIP,  MAGFLLi , SIGMA  and  EPSR  as  used  in  the  modal  cal- 
culations. The  card  will  be  denoted  as  the  RFACMSE  card.  Also  the  com- 
plex eigenangles  at  the  ground  are  also  punched  on  the  cards  as  ej,  and 
9}.  There  are  two  cards  per  mode  corresponding  to  T^Real),  ^(Imaginary) 
and  T2(Real)  and  T2(Imaginary)  on  card  No.  1.  Card  No.  2 contains 
T3(Real)  and  T-^ Imaginary) , T^(Real),  and  ^(Imaginary) . 

Where  ' NL.IGEN  = 1'  as  in  example  I,  the  values  of  the  eigenangles 
at  a height  of  H - 50  km  are  also  punched  one  per  card  as  6 (real)  and 
e(imaginary).  The  value  of  D as  punched  corresponds  to  the  bottom  of  the 
electron  density  profile. 

Example  III  lists  the  punched  card  output  obtained  from  the  input 
parameters  of  example  I when  'NPUNCH  =2'.  Here  the  first  card  is  the 
usual  RFACMSE  card.  The  second  card  gives  the  propagation  frequency. 

The  following  cards  give,  for  each  mode,  the  values  of  the  attenuation 
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rate  (dB/Mm);  the  ratio  V/C;  the  magnitude  of  Wait's  excitation  factor 
(dB);  and  th*  phase  of  Wait's  excitation  factor  (radians), 

Example  IV  lists  the  punched  card  output  obtained  from  the  input 
parameters  of  example  I where  'NPUNCH  = 8'.  This  output  is  suitable  for 
input  into  the  mode  conversion  computer  program  described  in  reference  12, 
The  first  output  card  is  the  RF.ACMSE  card.  The  following  cards  give  for 
each  mode  the  values  of  e ' ( real ) (degrees),  e' (imaginary)  (degrees);  the 
excitation  component  from  a vertical  exciter  for  the  vertical  electric 
field  at  z=0,  (magnitude  (not  dB)  and  phase  (radians));  the  real  and 
imaginary  parts  of  the  complex  number  ' FOVR ' ; and  the  height,  in  km,  used 
for  mode  conversion,  ' HOFWR ' . 

Example  V presents  input  data  where  the  electron  density  and  posi~ 
tive  ion  density  are  entered  in  tabular  form.  Note  that  in  this  instance 
the  collision  frequencies  for  electrons,  positive  and  negative  ions  are 
all  entered  automatically  within  the  program  through  the  variable 
' NUFLAG  = 1'.  This  corresponds  to  the  use  of  these  terms  as  computed  by 
Moler  (reference  13). 

Example  VI  shows  the  printed  output  obtained  from  the  input  of 
example  V.  Note  that  for  this  case  the  profile  top  is  net  cutoff  whereas 
the  bottom  is  cutoff  through  the  variable  'CUTOFF'. 

Example  VII  lists  the  punched  card  output  obtained  from  example  V 
for  NPUNCH  = 9.  Note  that  this  punch  option  gives  a combination  of 
NPUNCH  = 1 and  NPUNCH  = 8.  There  are  three  cards  per  mode. 

Example  VIII  presents  input  data  similar  to  example  V.  In  this 
case  the  variable  ‘TOPEN1  has  been  set  to  a small  number  sc  as  to  illu- 
strate the  output  messages  obtained  when  the  top  of  the  profile  is  cutoff. 
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Example  IX  shows  the  input  when  both  particle  density  (electrons 
and  positive  ions)  and  collision  frequency  profiles  (electron,  positive 
ions  and  negative  ions)  are  input  in  tabular  form.  This  procedure  will 
generally  be  the  case  for  computations  at  ELF. 

Example  X illustrates  the  usual  printed  output  obtained  for 
NPUNCH  greater  than  0.  Note  that  since  this  is  an  ELF  case  only  one  mode 
is  found. 

Example  XI  lists  the  output  obtained  for  NPUNCH  = 7.  This  output 
is  compatible  with  a program  which  computes  WKB-Fields  at  ELF  (reference 
14).  Note  however  in  this  regard  the  NAMELIST  variables  ‘TALT1  and  ‘RALT 
must  both  be  zero.  The  punched  card  output  for  NPUNCH  = 7 contains  the 
following:  the  RFACMSE  card;  a card  with  e^,  (degrees)  and  el  (degrees); 
and  a single  card  with  the  magnitude  (not  dB)  and  phase  (radians)  of  the 
vertical  excitation  factors  for  vertical,  end-or  and  broadside  exciters. 

Example  XII  shows  the  output  obtained  at  10  kHz  for  propagation 
over  sea  water  at  rright.  Whereas  Examples  XIII  and  XIV  illustrate  the 
results  for  propagation  for  the  same  conditions  at  60  kHz.  Note  that 
considerably  more  modes  are  required  to  compute  the  total  field  at  60  kHz 
than  at  10  kHz. 
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EXAMPLE  I 


PUNCHED  OUTPUT  (NPUNCH=1): 
(NEIGEN=1): 
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ZI!S1'.3?I'£'' ' J&FT^Jgzr. 


PROFILF  3 
SATELLITE 

f!  IGiH'  -'.MB  I ENT 

PROFILE 

LbO.OO 

1 G 05 

l.OOE 

05 

<.2  3.00 

5.VC":  03 

5.00E 

03 

220.00 

> . < OL  03 

3 .20b 

03 

cl 0.00 

:,U!'  03 

1 .odE 

03 

200.00 

.. ..oof:  03 

l.OOE 

03 

190.00 

o . otic  02 

0 . 50F 

02 

ioO. 00 

4 -JOE  02 

4 . O0E 

02 

170.00 

3 . >5fc  02 

3 . 43E 

02 

1 o 0 . JO 

2 . b2  F.  02 

2 . d2E, 

02 

155.00 

c . oOF  02 

2.60E 

02 

150.00 

c.bOL  02 

2 . 30E 

02 

195.00 

<..35C  02 

2 . 35E 

02 

140.00 

2.80F  02 

2.80E 

02 

130.00 

3.70c  02 

3.70E 

02 

U0.00 

3 . dOF  02 

5.80E 

02 

112.00 

1.10F  03 

1.10E 

03 

110.00 

1.20E  CO 

’ . 30  E 

03 

106.00 

1.70E  03 

1.70E 

03 

104.00 

1.90E  03 

1 ,90F 

03 

i02 . 00 

1.9oF  03 

1 . 9oF 

03 

100.00 

2.00E  03 

2. DOE 

03 

99.00 

i.55E  03 

1.95F 

03 

95.00 

5.62E  02 

6.30L 

02 

90.00 

3 . i5F  02 

4.1  IE 

02 

85.00 

1.97E  02 

4.  Ilf 

02 

60.00 

3.09F  01 

4. 1 ib 

02 

75.00 

3. HE  00 

4 .lit 

02 

70.00 

3.27E-02 

4 . lit 

v.2 

65.00 

1 .00c- 02 

5.33E 

02 

o 0 . 00 

3. 73c- 03 

7 • uO  F 

02 

55.00 

3 • 39  E-  03 

1.09E 

03 

50.00 

2.U6E-03 

1.54F 

03 

<t5.00 

1.c2E-C3 

2. HE 

03 

40 . 00 

6.7  *t!  04 

2. 73E 

03 

33.00 

3 .4 /fc-0*t 

2.25F 

03 

30 .00 

i.o7F- 04 

3.53E 

c3 

c 5 . 00 

7.70E-05 

3 . 69  £ 

03 

20.00 

3 . 43E- 05 

3.65F 

03 

15.00 

1.50E-05 

3.63E 

03 

10.00 

6. 3d  E- 06 

3.72E 

03 

5.00 

3 . 43 F- 06 

4 . 4oE 

03 

0.0 

0.0 

0.0 

-99.99 

CbLFRrU  3 

250.00 

22b.  00 

220.00 
210.00 
200.00 
lbO.OO 
120.00 
l u 0 . 0 C 

0.00 
-99.99 
EDA!  UM 
P.ANGFR  = 7G. 
NO F LAG  =0  * 

A Z 1 M = 90 


i.ObF.  02 
3 • 50E  01 
3. OOF  01 
3.30E  01 
9 .101  Cl 
l .cor  03 
I.OOf.  09 
3 • 9 C c 
4.30C 


09 

11 


'♦.5GE-C1 
9.U0E-01 
i.OOC  00 
1 . 30E  uO 
2 • COL  GO 
<t . bOF  Cl 
3.0 Of.'  U2 
tt.oOE  03 
1.07E  10 


INPUT: 


9.50E-01 
9.00L-01 
l.OOE  00 
1 » 3 0 E 
2.0CF 
•t.bOc 
3. OOF  02 
o.OOfc  03 

1.0/fc  10 


00 

OG 

01 


0 » 0 b . 0 f P ANGF  I=-30.0, -90 . 0 » 

,0»  CGi  IP  = 16. Of  MA Gf  L I)  = b.30 C-05 


NUF l AG  =0 .A  2 1 M=9C . 0 tC  Co  I P= 1 C • 0 » MAGFLD  = 5 . 3c - 05 , t PSR= 10 .0 » S IGMA= 3. J E-04 » 
REFLHT=oO.  f FKEG=0. 07  5f  NI-0NCH  = 7 , 

BEND 


EXAMPLE  IX 
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TIME  ^EQUIKfcD  POR  THIS  PKUFILb  = aaa.bO  ScCONOS 


E.  Error  Messages 

(1)  EI6ENANGLES  AT  e]  AND  e2  ARE  TO  BE  RESOLVED  (program  exe- 
cution stops). 

Solution:  Assign  to  RANGER  and  RANGEI  values  which  con- 

stitute a small  "contour  rectangle"  which  incloses  the 
above  two  eigenangles  and  re-execute  the  program.  An 
alternative  is  to  decrease  ‘ GMAX ' . 

(2)  ERROR  IN  CONTROL  CARD  (Program  execution  stops). 

Solution:  Check  control  cards  (i.e.,  PROFILE,  COLFREQ, 

&DATUM , or  SEND) 

(3)  TOP  OF  PROFILE  CANNOT  BE  SET  - At  the  bottom  of  the 


PROFILE,  B is  greater  than  the  value  of  TEMPO-B  (program 
execution  stops). 

Solution:  Problem  is  due  to  incompatibilities  between 

values  of  TEMPO-B  and  the  actual  electron  and  ion  density 
values. 


(4)  WARNING  — THE  TOP  OF  THE  PROFILE  CANNOT  BE  CUTOFF.  THE 


TOP  OF  THE  PROFILE  MAY  BE  TOO  LOW  (program  execution 
continues) . 

Reason:  In  top  card  of  electron  density  profile  the  com- 

puted B value  is  less  than  the  input  value  of  TEMPO-B. 

(5)  THE  PROFILE  BOTTOM  CANNOT  BE  CUTOFF.  ALL  B-VALUES  (AS  A 
FUNCTION  OF  HEIGHT)  ARE  LESS  THAN  CUTOFF.  THIS  IMPLIES 
THAT  THE  PROFILE  IS  VERY  CLOSE  TO  FREE  SPACE  (Program 


execution  stops). 

Solution:  Check  values  of  ‘CUTOFF1,  and  individual  values 

of  electron  and  ion  densities.  If  o.k.,  put  ' I CUT ' = 0 


and  re-execute. 


(6)  THE  BOTTOM  OF  THE  PROFILE  CANNOT  BE  CUTOFF  USING 
'CUTOFF1  = XXX  AT  HEIGHT  = YYY  BECAUSE  THE  VALUE  OF  B AT 
THE  BOTTOM  OF  THE  PROFILE  IS  LARGER  THAN  ‘CUTOFF1  (Program 
execution  continues). 

(7)  NO  MODES  (program  execution  continues). 

There  are  no  eigenangle  solutions  located  inside  the  con- 
tour rectangle  as  chosen.  Solutions:  Change  RANGER  and 

RANGEI  values  and  re-execute  the  program. 

(8)  INVALID  MODE  AT  e (program  execution  continues). 

Solution:  Cut  down  the  size  of  the  contour  rectange  in 

the  region  of  e. 

(9)  STEP  TOO  SMALL  IN  INTEG  OR  TOO  MANY  STEPS  IN  INTEG  (pro- 
gram execution  stops). 

Solution:  Examine  PROFILE  (e.g.  too  dense  at  top  or  too 

sparse  at  bottom)  and  other  ionospheric  parameters  such 
as  magnetic  field,  collision  frequency,  etc.  First  decrease 
‘GMAX1  and  re-execute  the  program.  If  problem  persists, 
increase  ’ ENMIN * and  again  re-execute. 

(10)  PROBLEM  IN  SORTING  Q VALUES  OR  Q FAILS  TO  CONVERGE  IN 
QUARTIl  (program  execution  stops). 

Solution:  Again  look  at  ionospheric  parameter  values. 

RANGER  (minimum)  is  probably  too  small.  Increase  the 
value  of  RANGER  (minimum)  and  re-execute  program. 

(11)  X MODES  FOUND  ON  SAME  PHASE  LINE  (program  execution 
continues) . 

Solution:  Information  only. 
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(12)  WARNING  X MODES  FOUND  ON  Y PHASE  LINES  (program  execution 
continues). 

Solution:  Information  only. 

(13)  If  run  time  is  very  long  it  is  probably  related  to  #8 
above  and  thus  solution  is  the  same  as  for  #8. 

(14)  NO  EXIT  FROM  MESH  SQUARE  (program  execution  stops) 

Solution:  The  value  of  TMESH  should  be  changed  slightly 

(1%)  and  the  program  rerun.  If  message  continues  - STOP. 

(15)  ONLY  X MODES  FOUND  ON  Y PHASE  LINES  (program  execution 
stops) . 

Solution:  Reduce  TMESH  by  1/2  and  re-execute  program. 

(16)  PROBLEMS  IN  SUBROUTINE  NO  MESH  (program  execution  stops). 

Solutions:  Reduce  TMESH  by  1/2  and  re-execute  program. 

If  message  continues  - STOP. 
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APPENDIX  A 


Modification  of  the  Modal  Equation 


Given: 


F](e)  = (1  - !|RimiR||)  (l  - jRjliRj.)  - iiRi .lR i!  iiR’ii #1  (A-l) 

where  R = R(0)  and  R = R(0). 

Let 


n - » 11 

1R!  - ,D, 


R.  = 


1K1 


1N1 

iDl 


(A-2) 


where  |Ng , |jD||  , j_N^  and  jDj_  are  in  such  form  that  they  contain  no  poles 
in  the  region  of  interest  in  the  0~p!ane. 

Then 


l|N||  j.Nj_ 

■ o - w A > n - jsr  iRi 


llRl  *1RII 


* . i!!i  (a-3) 

l“l  ' ' 


and 


f2(0)  = llDll  ' Id1ft(0)  = (flDll  " llNil  llRl|)(lDl  " 1N1  lRl) 

‘ IIR1  1RII  llNl!  1N1  (A-4) 


Also 


..R,,  +1 


F2(0)  * [«D||  ' |N|  C (-4-)  + |N,] 


,R,+1 

IjDj  - |N|  C (±4—)  + jNj.  ] 


2 iiRi  1R«  .1  M , 

■ ^ nr  * ~ ' *N»  * 


(A-5) 
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Also  note  that  no  poles  in  fi  or  D implies  that  there  are  no  poles  in 


APPENDIX  B 

Derivation  of  the  Equations  for  Free  Space  Integration 

In  the  MODESRCH  routine  the  differential  equations  for  the 
ionospheric  and  ground  reflection  coefficient  matrices  have  to  be  inte- 
grated through  a free  space  region  over  a curved  earth.  In  the  following 
derivation  of  the  necessary  differential  equations  for  the  ionospheric 
reflection  matrices  a number  of  references  arc  made  to  Budden's  work, 
reference  7. 

A right  handed  Cartesian  system  is  assumed  with  the  X and  Y axes 
lyinq  in  a horizontal  plane  boundary  between  the  bottom  of  the  ionosphere 
and  the  free  space  below.  The  positive  Z direction  is  upward.  A plane 
wave  is  incident  upon  the  ionosphere  from  below  with  the  wave  normal  in 
the  X-Z  plane  at  an  angle  0j  to  the  Z axis. 

The  differential  equations  describing  wave  fields  at  cb  ique  inci- 
dence (Op.  cit.,  P-  140,  eqns.  9.49-9.54)  may  be  separated  into  two  inde- 
pendent sets.  Either  of  these  sets  of  field  variables  may  be  set  equal 
to  zero  without  affecting  the  other,  so  that  the  corresponding  waves  are 
propagated  independently. 

For  the  first  set  the  electric  field  is  everywhere  parallel  to  the 
Y-axis,  and  the  waves  are  said  to  be  'horizontally  polarized1.  The  equa- 
tions are: 


3E., 

TT  = 1 k Hx 

(B-l ) 

i k S Ey  = -i  k Hz 

(B-2) 

3H„ 

+ i k S Hz  = i k n Ey 

(B-3) 
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SL 


where  i = 

S = sin  6j 


k = 2 7t/X 

X = free  space  wavelength 
n = index  of  refraction  of  the  medium 


and  H - ZQH 
where  ZQ  = Ex/Hy 

Hz  may  be  eliminated  from  eqns.  2 and  3 to  give 

9Hy  n o 

~ = i k (n  - - S^)  Ey 


(B-4) 


Elimination  of  Hx  between  eqns.  1 and  4 gives 

+ k2  q2  Ey  = 0 (B-5) 

dZ^ 

where  q2  = (n2  - S2'* 

For  the  second  set  of  equations  the  electric  field  is  parallel  to 
the  X-Z  plane  and  the  waves  are  said  to  be  'vertically  polarized1  even 
though  the  electric  vector  is  not,  in  general,  vertical. 


The  equations  are: 

9 Ex 

+ i k S E,  = -i  k Hy 

(B-6) 

-i  kn2  E 
dl  K n x 

(B-7 ) 

-i  k S Hy  = i k n2  E7 

(B-8) 

The  field  component  E7  may  be  eliminated  from  eqns.  (6)  and  (8)  to 

give 


ifx 

dZ 


(6-9) 
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(B-10) 


Elimination  of  Ex  between  eqns.  7 and  9 gives 

Im  q2„y 

dZ2  n2  dZ  dZ 

Just  below  the  free  space- ionosphere  boundary  the  total  electric 
wave  field  is  composed  of  two  upward  traveling  incident  components  and  two 
downward  traveling  reflected  components.  They  are  e|(  and  e[  y respec- 
tively, where  Ej  is  in  the  X-Y  plane.  Following  Budden  (OP  Cit.  Pg.  118 
eq.  8.72)  the  equations  for  free  space  integration  of  reflection  at 
oblique  incidence  may  be  derived. 

The  total  field  components  just  below  the  boundary  are 


Ex  ME,1  - E»r)  cos  Sj 


Ey  ’ V + Evr 


Hx  ■ (E/  - Ey1)  cos  e, 


u _ r 1 + c r 
y ull  4 

Define: 

1R1  = EyV 


lRi.  ■ Eyr/Ell 


A - E „7e 


1R«  ’ Eir'Ey’ 


. ...  - •£  n 


wnere  uie  k s are  iunuiun>  ui  uj. 

For  Horizontal  Polarization: 

Combine  eqns.  (11, b),  (12, a)  and  (12, b)  to  get 

£y  ^ Ey1  + Ey1  1R1  + E „ 1 llRi 


(B-l 1 ,a) 
(B-n,b) 
(B-n,c) 
(B-ll  ,d) 

(B-12,a) 

(B-l 2 ,b) 

(B-12,c) 

(B-12,d) 
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1 Sv  /JUMIPW!. 


or 


Ey  = E^,1  4 1)  4 E,1  ,RX 


(B-13) 


The  wave  equation  for  Horizontal  Polarization  (e.g.,  eq  5)  is: 


d2E 


^ + k2  q2  E = 0 


dZ 

9 9 9 

where  q = n - S 


(B-5) 


and 


sin  0 


I 


To  include  a curved  earth  let 


n2  = 1 + a (Z-H) 

where: 

n is  the  index  of  refractior.  of  the  medium, 
a = 2/re,  where  re  is  the  radius  of  the  earth. 
H is  +hat  height  where  n = 1. 

then  q2  = 1 + a (Z-H)  - S2  = C2  + a (Z-H) 
where  C = cos  0j 
so  that 


(j  E 

J-  + k2  [C2  + a (Z-H)]  E = 0 

dZ^  y 

to  get  standard  form: 


Let 

P = 

(^)2/3  [C2  + a (Z-H)] 

v 2/3  ? 1/3 

then 

&• 

(£)  a = (W  a , 

A 

= 0 

dZ2 

(B-14) 


(B-15) 
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TT?-^-  rv.’l  ’V*c- 


and  then  expanding  gives 

d2  Ey_  d |d  M _ d 


_z  - A y A-  —i  ^ 

2 " dZ  ~sr  ■ dZ  "dZp  d 


V\2  + iix  dV 

> / dp  dZ2 


now,  substituting  the  above  results  into  eg.  B-14  gives 


<r  E 2 2/3  d2  E 

— = (k2  a)  — J- 


(B-lfi 


Also,  since 


? 2/3  k 2/3  2 

(k  a ) (£)  = k2 


22  ? 2/3  k 2^3  2 

k2  q2  = (k2  a)  (£)  [C2  + a (z-i 


22  2 2^3 
k2  q2  = (k  a ) p 

so  that  the  wave  equation  (eq.  5)  becomes  upon  substitution  of  the  above: 

P 2/3  d2  Ey 

(k2  a)  f + P E = 0 

dp2  y 


+ p Ey  = 0 


(B-l  / 


The  general  solution  to  this  equation  is 

Ey (p ) = A h]  (p)  + B h2  (p)  (B- 

where  A and  B are  arbitrary  constants  and  h-|(p)  and  h2(p)  are  modified 
Hankel  functions  of  order  1/3.  (See  reference  8). 


To  relate  E and  H¥: 

y * 

equation  (1)  is: 


~3I~ 


i k Hx 


or 


or 


i d Ey 
k ~d T~ 


= 4 th. .1  (k2a)1/3  d Ey 

k dp  dZ  k lk  a) 

a 1/3  d Ev 
HX  - -k  (ak)  V 

1/3 


let  K = i (|) 


d E. 


tnen  Hx  = -K  ^ 


Hx  = -K{ A h^  (p)  + B 4 (p)} 


(B-19) 


(B-20) 


The  primes  on  the  above  quantities  denote  derivatives  with  respect  to  the 
argument. 


From  Eq.  13, 


i /iRi +’ 


E>  = c Ey  V ' 

and  from  eq,  11c 

Hx  = CEj  - CE; 
also  from  eq.  11 ,b 


- + C E„ 


,iRl 


(B-21 ) 
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or 


Hx  + C 


C Ey  - Hx  = 2C 


(B-22) 


Substitutions  into  eq.  21  for  Ey  from  eq.  18  gives 


A h-j  (p ) + B h2(p)  = C Ey 


C 1 ( + C F 1 


f ,r 


and  substitution  into  eq.  22  for  E and  Hy  from  equations  18  and  20  gives 


C {A  h-j  (p ) + B h2(p )}  + K {A  h]'(p)  + B h2'(p)}  = 2 C Ey] 


or 


<-£>  mp)  + <-!>  h2(P)  + Ey1  I 

^Rj+lV 

+ E,1 

^«Rl' 

VC/ 

1 = 0 

(-  ^){Ch1(P)  + Kh;  (p)}  + (-  f){Ch2(p)  + Kh2  (p)} 

+ 2E  1 = 0 

y 

(B-23) 

(B-24) 


Equations  23  and  24  are  the  equations  to  be  used  for  ’horizontal 
polarization1  in  the  fr®e  space  integration  procedure. 

For  Vertical  Polarization: 

Applying  previous  equations  (e.g.,  equations  11  and  12)  gives:. 


Hy  ' E|’  + E/ 

(B-l 1 ,d) 

Ex  " (E.1  - E«r>  cos  °l 

(B-ll ,a) 

X3 

II 

m 

m 

(B-12,c) 

1*1  - 

( B- 1 2 ,d ) 
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Combine  eqns.  (11  ,d),  (12, c)  and  (12, d)  to  get 


«y  * E.'  + E,1  ,R,  ♦ Eyf  XR, 
also  combining  eqns.  (11, a),  (12, c)  and  (12,d) 


i ) C 


In  different  form: 


Hy  ■ C E.’ 


(,R,+n 


+ C E. 


where  C = cos  0 


I 


(B-25) 


and  from  eqns.  (11, a)  and  (11,d) 

Ex  = E,1  c - Hy  C ♦ E,1  C 
or 

C Hy  4 Ex  = 2E„ 1 C (B-26) 

To  obtain  the  wave  equation  for  vertical  polarization,  follow 
Budden  (op.  ct.  pg.  343).  Note  that  in  this  case  the  electric  vector  has 
both  vertical  (Ez)  and  horizontal  (Ey)  components. 

The  wave  equation  for  vertical  polarization  is  given  by  equation  10 
as: 


^ ^ «v<> 


(B-10) 

dZc  n£ 

Any  linear  second-order  differential  equation  with  a term  contain- 
ing the  first  derivative  (e.g.,  d Hy/dZ)  can  be  reduced  to  its  ‘normal 
form’,  that  is  a form  without  a first  derivative  term,  by  a change  in  the 
dependent  variable. 


Let 


V = Hy/n 


or  Hy  = nV 


(B-27) 

(B-28) 
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then  equation  10  becomes: 


il  . k2  a2  + _J_  d2(n2)  3 d(n2) 

dZ2  f 2k2  „2  dZ2  4k2  n4  dZ 

where  for  a curved  earth: 
q2  = C2  + a(Z-H) 


V = 0 (B- 


Note  that: 


= + a(Z-H))  = 


d!lZ).=  0 

dZ  u 


The  wave  equation,  Eq.  29,  then  becomes,  after  substitution  of  eqns.  30 


and  31 


4 *k2  C2  + n (Z-H)  - -^-7 


4r  n 


V = 0 


neglect  this  term 


P » (|)2/3  [c2  +«(Z-H)1 

Compare  the  resulting  form  of  eq.  32  with  eq.  17 
Therefore  the  solution  is 


V = Q h-| (p ) + G h2(p) 


and  since 


Hy  = "v 


Hv  = n {Q  h-,  (p ) + G h2(p)} 


(B-28) 


Note: 


-dIlL  J.  = 2 n — 
dZ  L n dZ 


but  from  eq.  30 


or 


dn 

dZ 


_L  djrQ 

2n  dZ 


d(n2) 

dZ 


= a 


• djl  _£L 
“ dz  " 2n 

Also  from  eq.  33, 


4.  = fk' 


2/3 


dZ  ~ a = 


'k2  a3' 


1/3 


r (k^  a) 


1/3 


To  relate  Hy  and  Ex: 


From  eq.  (7): 


d H 


dZ 


^ = -i  k n2  E. 


or 


. d H 

F = _J 

x . 2 dZ 


k n 


1 - r1?  ar  (»») 

k n 


or 


Ex  = . 2 

k n 


_ dV  dn 

" a7  t37v 


and 


Ex  = 7 2 
k n 


dV 


dn 


ft  + ft 


or 


Substituting  eqns.  36  and  37  into  eq.  38  gives 


‘X  , 2 

k n 


E„  - 1 


■x  n 


n (k^a) 


1/3 


1/3 


dV 


3p”  2n 


+ V 


, fa  x dV  , . a V 

1 (F  dp  + 1 w 7 


(B-36) 


(B-37) 


(B— 7 ) 


(B-38) 


(B-39) 
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Now  define 


K - i <|) 


1/3 


and 


Then 


L ■ 1 (f) 


1/  dv  , x 

K « L n2 


Since  L is  small  let  n^ 
Then 


1 


1 e =1. 

" * „2 


tfi.U 

dp 


Substituting  for  V from  Eq.  (34)  gives: 

l Ex  = \ {K  [Q  h^  (p)  + G h^  (p)] 

+ L [Q  h^p)  + G h2(P)]) 
Substituting  eq.  35  into  eq.  25  for  gives 

, ARi.+1' 


Q h-j  (p  ) + G h2(p ) 


= C Eh 


+ C E, 


(B-40) 
(B-41 ) 

(B-42) 


(B-43) 


(B-  1) 


(B-45) 


~C  1 T ° cy  \~TJ 

Substituting  eqns.  35  and  44  into  eq.  (26)  for  H and  Ev  givps: 

y x 

n [c  {Q  h^p)  + G h2(p)  -y  { K [Qh-J  (p)  + Gh2  (p)]}  + 

L rr 

-y  a [Qh-|  (p ) + Gh2  (p)]}]  = 2E,| 1 C 

(B-46) 

Now  neglect  the  multiplier  n so  that  1 and n will  be  alike  for  coupling  to 
get  from  equation  45: 

/ . - \ / ~ \ I 

• / nKti  "i*  l \ • / 1 k ii  \ i 

(B-47) 
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3^7.7,  i^ir  ■ ^-r^-^'  gwapa^j 


and  from  equation  46: 

t“§)  (C  h-j(p)  + [K  h^  (p)  + L h-,  (p )]/n2} 

+ (-§)  {C  h2(p)  + [K  h2  (p)  + L h2(p)]/n2}  + 2 E ,, 1 = 0 


B-48 


Equations  47  and  48  are  tne  equations  to  be  used  for  'vertical 
polarization1  in  the  free  space  integration  procedure. 

The  four  equations  for  ionospheric  reflection  at  oblique  incidence 
(e.g.,  eqns.  23,  24,  47  and  48)  may  be  used  to  accomplish  the  full -wave  inte- 
gration of  the  four  ionospheric  reflection  coefficients  (R)  through  a free 
space  medium  over  a curved  earth.  The  integration  is  to  be  carried  out 
from  some  starting  height  "Z^",  where  the  values  of  the  R's  are  known,  to 
some  other  level  "Z^"  where  the  values  of  the  R's  are  to  be  determined. 

The  free  space  integration  procedure  consists  of  three  steps  (I,  II 
and  III)  which  are  as  follows: 

I.  At  the  "from"  level  (i.e.,  Z = Zf)  the  known  values  of  the  ele- 
ments of  R may  be  substituted  into  equations  (23,  24,  47,  and  48)  and  then 
two  sets  of  boundary  conditions,  B.  C. , applied  successfully.  That  is  for 
Set  I assign  ( E ,, 1 = 1 , E^1  = 0)  and  solve  for  the  coefficients  Aj  and  Bj  from 
equations  23  and  24;  and  for  the  coefficients  Qj  and  Gj  from  equations  47 
and  48.  Next,  for  Set  II  assign  (E^1  - 1,  E^1  = 0)  and  solve  for  the  coeffi- 
cients Ajj  and  Bjj  from  equations  23  and  24;  and  for  the  coefficients  Qjj 
and  Gjj  from  equations  47  and  48. 

The  procedure  includes  a need  for  solving  two  simultaneous  equa- 
tions. That  is  if: 

anA  + a^B  = V-|  (B-49,a) 

a^A  + a22B  = V2 


i o ■ 

XL.  X 


(B-49,b) 


tnen 


_ = (V]  a22  - V2  a]2) 
Tan  a22~a21  al  2 ^ 

B = |V2  an  " V1  a21 1 
(a11a22  " a21 al 2 ^ 


(B-50,a) 


(B-50 ,b) 


For  Horizontal  Polarization  at  the  (from)  level,  the  follow- 
ing identifications  are  made: 

Identify  terms  of  eq.  23  with  eq.  (49ta)  and  terms  of  eq.  24 
with  (49, b).  That  is  let: 

A = -A)  , B = -(6)  ; 


where 


cos  G 


I 


Pf  = £> 


2/3 


[C  + a(Zf-H)] 


11  = hl(pf) 


l12 


implies  a function  of 
d at  the  "from"  level. 

Hg(Pf ) 


> 


21  = ^ K h^j  (p^) 

a22  = ^ ^2 (Pf ) * ^ ^2  ^Pf^ 


-E. 


'i*I  +i' 


- E„ 


-2  E. 


where  from  (19) 


K " i (|) 


1/3 


(B-51 ) 


122 





For  Set  I B.C.:  (E^  = 1,  E^  = 0)  Applying  these  boundary  conditions  and 
the  relations  of  equation  51  to  equation  23  and  to  equation  24  gives: 


(‘  £)Tall  + 


(1) 


C/ja12  \T" 


(■  r)ja2i  +( "r/\a22 = 0 


Solving  these  equations  simultaneously  by  the  application  of  equation 
50(A,B)  gives: 


where 


A1  = (alla22  ' a21a12) 


(B-52,a) 


(B-52,b) 


(B-53) 


with  a,,  as  defined  in  equation  51 

1 J 

For  Set  II  B.C.:  (E„ 1 = 0,  Ey1  = 1)  Applying  these  B.C.  conditions  and 

the  relations  of  equation  51  to  equation  23  and  equation  24  gives: 
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For  Set  I B.C.:  (e|  ■ 1,  E^  « 0)  Applying  these  B.C.  conditions  end  the 


relations  of  equation  55  to  equations  47  and  48  gives: 


«),•»  * ©,•,*  • (4^) 


(§)j*21  + (I) 


*22  “ 2 


Solving  these  equations  simultaneously  by  the  application  of  equations 


($\  - 

(.<;  i j, 1 

1 

VC/j 

\ e /*22  Z*12 
» « 

*2 

©,- 

^ 

* a 

1 

*2 

(8-56, a) 
(B-56,b) 


Where 


(a-i^a 


11*22  ” *21*12) 


with  a^  as  defined  In  equation  55 
For  Set  II  B.C.:  (eJ  * 0,  E*  * 1)  Applying  these  boundary  condl- 
tions  and  the  relations  of  equation  55  to  equations  47  and  48  gives: 


© 


II 


*11  + 


/G\  1R» 

(r)n*i2  * nr 


(?)n*21  + (f)II*22  = 0 


Solving  this  equation  simultaneously  by  the  application  of  equations 


m 

lRf  a22 

XL,u 

t a2 

/G\ 

X a21 

Wn 

— rif 

(B-57 ,a) 
(B-57,b) 


Where  a2  is  again  defined  in  equation  55 
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i 


For  Set  II  B.C.:  je.g.  (e,  ’)f  = 0,  f = j 

("  T)n  a21  + (’  t)n  a22  = ‘2  (^y)tjn 


(B-60) 


Where  the  values  of  (A/C)jj  and  (B/C) j j were  determined  by  equation 


54  and  the  a.,  are  given  by  equation  58. 

' J 


For  Vertical  Polarization  at  the  Zt  "to"  level,  the  follow- 


ing identifications  are  made. 

Identify  terms  of  equation  48  with  equation  (49 ,b).  That  is: 

*■  (■&)»*■  (-!) 


For 


a2i  = (c  h-|(pt)  + |j<  h-j  (pt)  + L h.j(pt)J/h2] 

a22  = (C  h2^pt^  + [K  h2  ^pt^  + L Mpt}]^2) 

V2  * -2(E>  \ 

L = i(|j^)  from  equation  41 
Set  I B.C.:  ^e.g.  (e,  % = 1;  (Ey’)f  = o\ 

f §)z  a21  + ("  f)j  a22  = _2((EH  ^t 


(B-61 ) 


(B-62) 


Where  (A/C)j  and  (6/C) j are  given  by  equation  56  and  the  a.,  are 
given  b.y  equation  61. 
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jsw:? 


£ 


I 

‘;| 

fe'i 


Where  (Q/C) j j and  (G/C)jj  are  given  by  equation  57  and  the  a^.  are 
given  by  equation  61. 

III.  Knowing  the  values  of 


at  the  "to"  level,  from  both  sets  of  coefficients  A,  B,  Q and  G,  as  de- 
termined in  Step  II,  the  elements  of  the  ionospheric  R's  can  be  found  at 
the  "to"  level. 

For  Horizontal  Polarization  equation  23  at  the  "to"  level  is: 


Applying  the  B.C.  of  Set  I for  (A/C ) j and  (B/C)j  to  equation 
and  applying  the  B.C.  of  Set  II  for  (A/C)jj  and  ( B/C) j j to 
equation  (64)  gives  two  equations. 


(64) 


(B-64) 


i-Jt***' 


Identifying  terms  of  equations  65  and  66  with  equations  49, a and  49, b 


respectively  gives: 


(B-67) 


Then  from  equation  (50,a): 


(B-68) 


(B-69) 


a f A's>  Bhf^V 


For  Vertical  Polarization  equation  47  at  the  "to"  level  is 


(‘  c)hi°t  + (“cJMpt)  + (Eh1) 


iiRh  + V 


t \ C 


(£y)t  (— Jt  = 0 


(B 


Applying  the  conditions  of  Set  I for  (Q/C) j and  (G/C'jj  to  equation 
70  and  applying  the  conditions  of  Set  II  for  (Q/C) j j and  (G/C)jt  to 
equation  (70)  gives  the  two  equations: 


+■ 


and 


II 


Identifying  terms  of  equation  65  with  equation  49, a 


,Rii  + V 


A = 


B = 


’ll 


7 I 


^2  2 "*  * » ^ 


V 1 'yn 

V1  = (c)T  Mpt^  + (f)T  h2^pt^ 


II 


(B 


(B 


(B-67) 


V2  = (c)TT  hl'pt^  + (c)TT  h2^pt^ 


APPENDIX  C 

MODIFIED  GROUND  REFLECTION  COEFFICIENTS 


Given:  The  Fresnel  Reflection  Coefficients  at  the  ground  (i.e.,  z = 0) 

CNn  - W fr 

JT°  = _JL (C- 

i n ? 

CNg  t W 


no  - C - W 

n ~ m 


where 


»■ 


S = sin  e 


Ng  = index  at  refraction  of  ground 
Define  modified  reflection  coefficients  as: 


(-TST+  D/C 

It  I'M 


(C-4) 


B • (4r+  D/C 

ri 


where  C = cos  9 


substituting  equations  1 and  2 into  equations  4 and  5 gives: 


CVH 

CNg  + W 


+ 1 1/C 


1 1/C 

c + w 
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then  with  further  manipulation: 


cn„  + W 

A = —I + 1 /C 

K - w J 


cn?  + w + cni  - w 


CNg  ‘ w 


(CNg  • W 


i/2[C  - W/Ng] 


(C-8) 


B * r4-S  + 1 /C 


■ C + H + C - W 


c - w 


then  define: 


2 • 1/W 


1 rTTTT 

7 [w  'J 


(C-9) 


so  that: 


^Cc  - w/n|] 


(C-10) 


.n,  ini  = 1/W 

B = M So  that:  11  . _ 

Xi  A "M-u 


(C-ll) 


The  final  forms  of  A and  B as  presented  above  are  well  behaved  functions 
as  Ng  ->•  » and  9 90°. 
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APPENDIX  D 

MESH  SQUARE  ANALYSIS 

Consider  an  individual  mesh  square.  See  figure  D-I.  Any 
point  in  the  complex  0 plane  which  lies  within  (or  on  an  edge  of)  the 
square  is  described  by  the  complex  function  F(e  ,e^).  That  is: 

F(e)  = FR(er,e.)  + j FI(0r,ei)  (D-l) 

and 


e = 0r  + jei 


(D-2) 


where 

FR(e)  is  the  real  part  of  the  complex  function  F(e) 

Fj(e)  is  the  imaginary  part  of  the  complex  function  F(e) 

ef  is  the  real  part  of  the  complex  number  (0) 

e.j  is  the  imaginary  part  of  the  complex  number  (e). 

The  lower  left  hand  corner  of  the  square  is  taken  as  the 
reference  position  and  each  side  of  the  square  is  one-mesh  unit  in  length. 
The  geometry  of  the  ..iesh  square  is  shown  below  where  the  F(er,e.j ) values 
of  the  corners  of  the  square  are  identified. 


1 M 


SH 

T 


1 _ 


Figure  D-I.  Mesh  Square  Geometry 
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A basic  assumption  put  on  F(er,ei)  is  that  ( 6 r » e -j ) ancl 

Fl  ( er* ei ) are  bo  be  ^inear  a^on9  eac*1  ec*9e  °f  the  mes^  s9uare* 

The  function  of  F(er,e.)  at  any  point  within  the  square  is 

given  by: 

F ( e r , e i ) = F(0,0) (1  - er  - 0i  + er>ei ) 

+ F(0,1)( 


+ F(1,0)(  6, 


ei  - erei> 

- Vl> 

6 rei  > 


or  expanding: 


+ F(l,l)(  ej»J  (D-3) 

F ( e r , e i ) = F(0,0)  + e.(F(0,l)  - F(0,0))  + ©r(F(1.0)  - F(0,0)) 

)) 

(D-4) 


+ erei(F(0,0)  + F ( 1 , 1 ) - F(0,1)  - F( 1 ,0) ) 


which  can  be  written  as 

F(er,ei)  = a + bei  + C9r  + derei 


(D-5) 


(a)  Hyperbolic  and  Asymptotic  Lines: 

Consider  the  imaginary  part  of  F(e  ,0^)  and  FI(er>ei)  = 0.  This 
gives  (from  equation  D-5): 

a1  + biei  + cier  + di8r0.  = 0 (D-6) 

Also,  in  the  same  way  the  real  part  of  F(ef,0i ) gives: 

ar  + br9i  + crei  + drer9i  = 0 (C"7) 

Equation  D-6  (or  equation  D-7)  is  the  equation  of  an  "equilateral"  or 
"rectangular"  hyperbola  wi th  vertical  and  horizontal  asymptotes. 

To  determine  the  center  of  the  asymptotes  for  the  hyperbolic 


curve  uf  equation  D-6,  that  equation  must  be  solved  for 


o anrl  alcii 

”r  ' " 


for  ei . 
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That  is,  (from  equation  D-6): 

(ai  + b.ej  + (c.  + diei)  er  = 0 
or 

_ /yy,\ 

er-  (c^d^J 

Also  from  equation  D-6: 

(a.  + cier)  + (b.  + d.er)ei  = 0 

or 

0: 


/ ai  * cier) 

' \bi  + Vr/ 


Now  let  e -»■  » in  equation  (D-8)  so  that: 
ci  + diei  = 0 


(D-8) 


(D-9) 


The  line  described  by  equation  (D-10)  is  the  horizontal 
asymptote  to  the  equilateral  hyperbola. 

From  equation  D-9  let  0^  ->  ~ so  that: 
bi  + dier  = 0 


(D-10) 


or 


0 = — -j — 

r 37 


(0-11) 
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The  line  described  by  equation  (D-ll)  is  the  vertical  asymptote  to 
the  equilateral  hyperbola.  These  asymptotic  lines  in  relation  to 
the  mesh  square  are  illustrated  in  the  following  figure: 


F(0,1) 


E-l 


F(l,l) 


O rr < 

i \ 

1 \ 

r - - ♦ ^ 

> 

'>  1 
\L_ 

i li ( 

) 

0i  = 


0 = 

r 


ci 

di 

bi 

HT 


F(0 ,0) 


F(1 ,0} 


ei 


Figure  D-II.  Vertical  and  Horizontal  Asymptotes 
for  an  equilateral  hyperbola. 

(b)  Intersection  of  Hyperbolic  Lines  with  the  Edges  of  the 
Mesh  Square: 

Identify  the  edges  of  the  mesh  square,  as  shown  in  figure  D-I,  as 
edges  1,  2,  3 and  4.  Also,  consider  only  the  imaginary  part  of 
F(er,e.j)  of  equation  Q-4  and  equate  Fj(er,ei- ) to  0.  Equation  D-4  becomes: 
Fj (0,0)  + ei(FI(0,l)  - Fj(0,0))  + ©r( Fj (1 ,0) 

- Fj(0,0))  + erei(FI(0,0)  + Fj(l,l)  - Fj(O.l) 

- Fj (1 ,0) ) = 0 (0-12) 

Tn  find  the  intersection  of  a branch  of  the  equilateral  hyperbola, 
described  by  equation  D-12,  with  edge  No.  1 of  the  square,  set  0r  - 0 and 
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note  that  varies  between  0 and  1 along  edge  No.  1.  Equation  B- 12  becomes 
Fj(0,0)  + e1(FI(0»l)  - Fj(0,0))  = 0 
or 

“Ft (OfO) 

°i  = FTToTTT  - f. (osQ)  ^D“13'; 

Therefore  the  point  of  intersection  for  edge  No.  1 is: 
er  = 0,  e.j  is  as  given  by  equation  D-13. 

The  point  of  intersection  between  the  hyperbola  and  the  remaining 
three-  sides  may  be  computed  ir.  a similar  manner.  The  results  are  as 
follows: 

The  point  of  intersection  for  edge  No.  2 is: 


Fj(0,0) 

6r  = ‘ Fjd.O)  - Fj(0,0)  * 6i  = 0 
The  point  of  intersection  edge  No.  3 is: 

Fj(l,0) 

6r  = U ei  = ' Fjd.l)  - Fj (1,0) 
The  point  of  intersection  edge  No.  4 is: 


( D- 14 ) 


(D- 15) 


- F(0,1) 

r " " Fj(l,lj  - Fj(0,l) 


(D-16) 
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■ tssjfjsrom  .-3i?Tmj 


APPENDIX  E 


sol;jtion  of  the  quadratic  equation 

FOR  THF  GENERAL  ROOT-FINDER. 


Given  the  Quadratic  equation  as  used  in  the  Root-Finder  procedure: 


o CT  + 2bX  + C = 0 


(E-l) 


X = - 


2b  ± V 4b  - 4ac  b 


= M-1  i/TTac" 


let  e = -ac/b 


and  then  (I  +e)^^  = 1 + i e + i ( i - 1 ) 


2 2 \ 2 
2 


*7  (l'1)  (M  ^ + - 


X.|[-lt/MT7] 


so  that 


, bfl  /-ac v . 1 /I  /-ac\2  . 2 (?  "')  (?  " 2) /-ac\3  . 

(i  - s ?( ^ r ? 1 zzJ  { 7)  + - n \?y 


*1  + 


let  tQ  = 1 


!H[  .el,  (l-1)  (?-2)  L 

T-  '?/  li 


■ (l-3) 


(1  ■1)  (7 _2) 


3 • 2 


(E-2) 


O£^or»r»or>r>o.-»f>r>oo 


PROGRAM  »• •MOOESRCH* •* 

THIS  PROGRAM  FINOS  TH£  WAVEGUIDE  MOOES  FOR  THF  EARTH- IONOSPHERE 
wAVTGUIUE  FC*  ELF-VI. F-LF 
MA I N 

FOR  VS 

PROGRAM  FOR  COMPUTING  EARTH-IONOSPHERE  WAVEGUIDE  UGEN-ANSLFS  AND 
EXCITATION  FACTORS  WHlCh  ARE  OUTPUT  UN  PUNCHED  CARDS 
FOR  USE  IN  A PROGRAM  WHICH  COMPUTES  FIELO  STRENGTHS. 


THIS  RUUT1N6  CONTROLS  THE  SEQUENCE  UP  INPUT  AND  EXECUTION  AND 
PROVIDES  FOR  NAMELIST  INPUT.  A DESCRIPTION  OF  Tht 
INPUT  PARAMETERS  IS  GIVEN  IN  A DNA  REPORT • 


COMMON/ !C  COM/ 1 DENT  <20 ) 

COMMON/ PTALT/  TALT,RALT 
CHMM0N/6PRT/  BPR1 NT 
CJMMuN  /FP/HUfwk 
COMMON  / RTOL  C/RTOL 
COMMON/ I>ACT  C/IEXACT 
COMMON/ FLO  COM/ A/IM »CODIP»MAG  FLD 
COMHO N/FRQ  COM/FREQ 
COMMON/ GM)  COM/ EP SR  f SIGMA 
CUMMON/RHP  COM/ BETA, HPR1ME,SCLHTS,ENMN 
COMMON/ WR  CUM/OMEGAR»TfcMPUG 
CUMMC  N/TCPFN  C/TUPEN 
CuMMON/f XPNU  C/C0EFNUI3) ttXPNUIH) 
COMMON/  ICN  COM/ IONS  ♦MRATlUOi 
CltMMON/L  IMS  C /RANGER!  2)  f RANGE  1 1 2) 
COMMON/GRAX  C/GMAX 
COMMON/PARAM  C/TMESH 
COMMLN/Sf  P CUM/ SEP 
COMMON/ TCL  COM/LUB 
CUMMl.N/NFIGN  C/N6IGEN 
COMMON/NFNCH  C/NPUNCH 
CCMMCN/CPD  PKT/CARUPT 
COMMON/CPD  PNC/CARDPN 
COHMON/CLT  OF/  ICUT, CUTOFF 
CGMMC'N/RHO  COM/ RHO,  REFLHT 
COMMUN/H  CCM/H 
COMMON/ MFR  NT/MPKl NT 
COMMON/ XFP.NT/XPRINT 
COMMON/ FXTRA9/ l GUFFR<500) 

C 

C 

KAMEL  l ST  /DATUM/  AZ IM  ,CQO  i P » MAG  FLD* 
i ' FREQ,  TALT  »RALT  , 

$ LPSP, SIGMA, 

5 B ETA, HP RI ME ,SCLHTS»ENM IN, 

6 TOPFN, TEMPOS, 

i C Ot  F N U , E X PNU , NU  F LA  G , 

1 MRATIC,TMESH,LUB» 

i RANGER, RANGEI , 


'■l 

K- 


142 


t 


r»  r> 


J.  GMAXf  SEP.PTOl,  l EXACT , 

* NE13EN, 

♦ MPuNCH,WHO,S£PlHT, 

'i  H . 

i ICUT, CUTOFF, 

1 GPfvINT.NPsjF, 

% PPRINT, XP>IMT »CARDPT,CARDPN 


1'VT‘OER  FKPF,COlr,AnAT,WUlT 
INTEGER  CAFOPT.CARDPN 
1 \ T Eo F P XPKtNT 
INTEGER  SPPlNT 
SbAL  MAGFtOfMRATlO. UJD 
DIMPKSUK  I ilCOt  20 ) 

DATA  PR('f/*PROF*/,CtlLF/*CGI.F'/,lDfcN/*  10  •/, 

* WAVE/»WAVF*/,ADAT/»  E0a*/,IEND/'  €EN' / , 

> cun/*ouiT»/ 

data  IdLANK/'  '/ 

DATA  tThRte/*3  */ 

C 

■c 

Hf»PHR*O.C 

UVCGA«*i‘.5E05 

C 

r INITIAL  VALUES  OF  KAMEL  I ST  PARAMETERS. 

C 

IEXAL  T=0 
ICUT  * 3 
CUTnFF  = O.OC01 
TGPSN  * 1.0E3 
SCLHTS  * 3.0 
EKMIK  = l.Oe-1 
TEMPO Rs2.0 
HPP IMFs-S^.O 


F P 1 0 a 

0 

.0 

RHU  = 0 

• 

C 

RF.FLHT 

= 

50, 

.0 

H = bO. 

0 

T A L T = 0 • 

0 

ralt=o. 

c 

GP'A  X * 

b 

.0 

PTrL*0. 

0 

a 

SEP  = 0 

• 

i 

TPESH  = > 

i 

.0 

LU8=- 1. 

0 

NUFLAG 

zz 

0 

COEFP  U< 

l 

3 = 

l* 

816EL1 

CUEFKU( 

2 

i - 

A. 

bAUFV 

COEFNUT 

3 

) = 

<t. 

bAOE* 

EXPNUU 

) 

= -0. 

lb 
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EXPNU(2)  * -0.15 
FXPNU  < 3 ) « -0.15 
C 

MK  A T 1 H ( H =1.0 
MRATKH2)  * 58000.0 
MRAT I 0(3)  = 58000.0 

c 

HNS  = 0 
Nf  1 OF  N = 0 
fvPUNCH  = 1 

c 

GPRlNTsG 
MPRINT  = 0 
XPRINT  = 0 
CAR  OP  T*C 
CAR  OP  N3  1 
C 

on  7 I = 1,20 
7 I0LN7  U ) * IBLANK 


DEFAULT  VALUES  C1F  GROUND  PARAMETERS  ARE  TAKEN  AS  SEA  WATER 
S IGMA  *4  . £<► 

EPSR*  81 . 

C 

C CONTROL  OF  SEQUENCE  OF  INPUT  AND  EXECUTION. 

10  REACH  5, 5CI ♦ END*9999 ) l BCD 
PRINT  902,  I BCD 

IF  (I  BCD  (1 ) . £Q.  PROF)  GO  TO  11 

IF  ( I BCD ( 1 ) • FQ . COLF)  GO  TO  12 

IF  UBCD(l)  .FO.  IDEN)  GO  TO  U 

IF  (inCOCi)  . FO . AOAT)  GO  TO  20 

I F ( I BCD ( 1 ) .E 0.  QUIT)  GO  TO  9999 
PRINT  9uC 

90C  FORMAT  (»  ' , * ERROR  IN  CONTROL  CARD*  ) 

STOP 

C 

9999  PRINT  9996 

9998  FORMAT { *C*  » ****THE  CALCULATIONS  ARE  COMPLETE***') 

STOP 

C 

11  I ONS=  0 . 

IF  1 1 BCD (3 ) .EQ.  ITHREE)  IONS  * 1 
CALL  PRFL  IN 
HPR  IM  £=  -99 .0 
(»0  TO  10 
id  CALL  COLF  IN 
NUFLAG-0 

COEFNUI  1)  = -99.0 
GO  TO  10 

13  p£AD  901,1  DENT 
PRINT  902, I DENT 
GO  TO  10 


?'  g/* 


I 


c . 

r 

C NAME l 1ST  INPUT, 

C 

20  ll'UFFMl)  = IBCJU) 
iHUPf  M2  ) = I8CD!  2) 

•J  - A 

Df  > 1 LM.23 
*FA~>  901 » 10CO 
PM  NT  9C2,IBCD 

IFUBCDll)  .EQ.  IFNO)  GU  TO  22 
00  21  I = l,2u 
I5uFFR(J)  = IBCO(I) 

J = JU 

21  CONTINUE 

22  IBUf-HU  J » * 1 BC  0(  1) 

J = JH 

I&OFFMJ)  = I rtCDl  2) 

(AIL  Cost  ( 10ul"  f ^ * 4*J  ) 

PfAOt 1,CATUM) 
hrFWK=C.C 
C 

IFiTMESH  .IT.  0)  TMESH=SQRT( 3.75/FREQ) 

UILUB  .IT.  0)  LUB- SORT ( 13.0/FRFQ)*0.01 
pa I NT  2C  it  TMFSH  »LUB 

20j  FORMAT ( • C* » ‘ TMESH  = • ,Fo.5,4X,  * LUB  * • ,F6.4) 

IMFkFQ  .Li.  1.0)  I FXACT  = i 
C 

IF  (NUFLAG  .EQ.  J)  GO  TO  40 
COE FNU( i ) = 4.303E1 1 
CCEFNUI2)  = 1.07OF10 
CUfFNU(j)  = 1.U76E10 
fXPNU(i)  = -0.1622 
FXPNU(2)  * -0.1622 
EXPNU(i)  * -0.1  o<s 2 
C 

C MSCELLANECUS  INPUT  OPERATluNS  AND  CALL  TO  CONTROL  RGjTINE. 
4 3 If  t HP  R 1 v F .GT . 0)  CALL  b E T EN 

I F ( HP  P 1 Mf  . LT  * 0 .AND.  FREQ  .G* . 1.0)  CALL  CUT  TuP 
IF  (KANGfcR(l)  . LT  • RA.Ni.fcM2))  GO  TO  41 
TEMP  - RANLEPU) 

RANGE  Ml)  = RANGER! 2) 

F.ANGf  R ( 2 ) = TFMP 

41  IF  (R ANGf I ( 1 ) .GT.  RANGE  1(2))  GO  TO  42 
TEMP  = RANGFI ( 1) 

RANGE  Hi)  = RANGE  I (2) 

RANGE  1(2)  - TFMP 

42  CONTINUE 

I NC  R= IT  I ME { ICK  ) 

CALL  WVGLID 

IinC R=  IT  IMF  ( ICKI-INCK 

TlMfc= FLOAT  ( INC  R ) / 10  0. 

PRINT  M3,  TIME 


< jgs*.  % ; ^ 
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Sot* PHUT  !NE  WVGUIO 

FOR  MS 

CGNT  m l t*PLTlNF. 

f liMMUN/TCL  COM/TOL 
COMMON/  I XACT  C/IEXACT 
Cf!MM(>N/MFRNT/MPF!NT 
CCMMilN/NFNXH  C/NPUNCH 
r C»MMC*  »M/ Is  F ! GN  C/NE  I GEN 
COMMON/!  IMS  C/RANGEPI2) ,RANGhI<2) 
CGMMUN/PARAM  C/TNESH 
CUMMON/bMAA  C/GMAX 
CQMMON/NP  OF  AS/NR  A 
COKMf.  N/HTS  CJM/FTSIIOU 
' COMMON/ SlOtS  C/TLEFT,TkIGHT,TBOT,TTQP 

common/thp ta  c/theta 

• CbMMHN/FIG  COM/E1GFNI lUO) »NR  E 
C PMMON/K  XACT  C/  K EXACT 
CUOMON/L'  C CM  / D 
COMPLEX  THETA, EIGEN, 
f>  ELI  ST  (100 ) , 

* TFMP 


IF  ( N PUNCH  .H?.  0 .AND.  NEI3PN  .F«.  0)  GO  TO  90 

INITIALIZE  POLL-*A VE  SOLUTION. 

CALL  SET  PK 
CALL  INIT  T 

SET  UP  SMALL  RECTANGLES. 

Nk  EL  - 0 

Nk  RPXS  * I RANGER ( 2 1-RANGER  I LI-TOL 1 /GMAX+ 1 . 0 
I F ( IEXACT  .NE,  0)  NP  BOXS  * 1 
fLSPAN  - (KANGERI2) -RANGEKI IH/NK  ROXS 
IBOX  = L 

TTOP  * RANCEI (1) 

TSOT  = R ANGF1 1 2 ) 

TLL-FT  * FANGCRU) 

20  TftIGHT  = TLEFT 

TlFFT  = TRIGHT-RLSPAN 

SET  REFERENCE  HEIGHT  AND  INITIALIZE  LAGRANGE  INTERPOLATION. 

P ~ 0.0 

If (IF  XACT  .ED.  u)  CALL  SET  KH 

INITIALIZE  PBAR  SOLUTION  AND  FREE-SPACE  INTEGRATION. 

CALL  INIT  RB 

CALL  INIT  F S I HT  SI  NR  A ) , l)  ) 

"INI)  ZFKQS  CF  P FUNCTION  - LAGRANGE  INTERPOLATION  USED  IF  NOT  ELF. 
KEXAC  T*0 
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o o o o o o <~i  r>  o o o o 


CALL  FZEPOS  ! TLEFT, TRIGHT ,TBOT,TTUP,TMESH,TQl,MPRlNT, 

$ E IGEN  »NR  5) 

l f ( nr  f .re.  0)  go  rn  n 

C ORUFH  FI  GEN  ANGLES  ACCORDING  Tu  VALUE  OF  REAL  PART.' 

I h (NP  h .CQ.  L)  GO  TO  oh 

NrtEMl  = \p  £-1 

CD  oB  JMl.NKEMl 

JI  Pi  = JE+l 

nr.  u2  J- Jf  P1»NR  F 

IF  (RCALtriGFNUn  .LT.  REAL  ( E 1GEN  < Jf. )))  GO  TO  62 
TEMP  * EIGEN! Jl 
EIGEN ( J ) * EIGEN! JE ) 

E I GEN ! JF ) = TEMP 
62  CONTINUE 
.63  CuNTINUF 
64  CONTINUE 

FOlLiJa  F IGF.N  ANGLES  AS  F FUNCTION  IS  CHANGED  FROM  THAT  USING 
LAGRANGE  INTERPOLATION  TO  THAT  USING  EXACT 
FULL-RAVE  SOLUTION  VALUES  UF  REFLECTION  COEFFICIENTS. 
IF! I EXACT  .EG.  01  CALL  FINAL 
I F ! NR  E .EO.  0)  GO  TO  77 

OISCAFD  F I GFN-ANGLFS  wFICn  ARE  OUTSIDE  CURRENT  SMALL  RECTANGLE. 

J=U 

CO  71  JC=i,NR  F 

IF  ! P EAL ( E 1GEN! JE ) ) .LT.  TLEFT-i.O*TOL  .OR. 

* REAL! EIGEN! Jt ))  ,GT.  TRIGHT*2.0*T0L ) GO  TO  7i 

J = J+l 

ElbEMJ)  = tl  GEM  JE ) 

7 i CONTINUE 
NR  F = J 

STORAGE  OF  EIGEN  ANGLES. 

IF!  Nk  E .EG.  01  GO  TO  77 
DO  76  J F - l »NR  6 
NP  EL  * NR  EL+i 
7 o El  I ST ( NP  EL)  = cIGFN(JE) 

77  I BOX  * IROX+1 

IF  ( 1 BOX  .LE.  NR  BOXS)  GU  TO  20 
NF  E = NR  EL 

IF  {NR  E .fctt.  0)  GO  TO  as 
DO  78  J F = i f NR  E 
7b  E 1 G EN ( J E ) * EL  I ST  4 JE ) 

COMPUTE  AND  PUNCH  NPUNCH  OUTPUT  AND  PRINT  TABLE. 

If  (NPUNCH  .NE.  0)  CALL  NP  OUT 

0 R I NT  AND  PUNCH  F.IbfN  ANGLES  IF  NEIGEN  SET  TO  i. 

IF  CNF  IGEN  .NE.  0)  CALL  Nfc  OUT 
RETURN 
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&5  Pb  I N1  965 

965  f i‘>Kp4A  T (•OS'N)  MODES* ) 

^ r i ut-  n 

, 9C  PKtNT  99 C 

990  Fl'KMAT  (•O'v'Sei  foPUNCh  Uk  NEiCiEN*  ) 
STOP 

t\n 


C 

c 

c 

c 


c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 


SUBROUTINE  SET  RH 
FUR  “S 

ROUTINE  FOR  SELFtTING  GIVEN  POINTS  IN  TNF  LAGRANGE  INT  F.KPGLAT  I t*N 
A NO  FG«  SElFCllNG  THE  REFERENCE  HEIGbT. 

COMMLN/PPRNT/MPRINT 
COMMON/ PAR  AM  C/TMESH 
ClMMt'N/HTS  CUM/HTSIIOII 
COMML'N/NP  CF  A$/Nk  A 

COMMON/ SIDES  C/TLEFT,TR 1GHT , TBOT, TT OP 
CUMMt  N/1HE  TA  C/THETA 
COMMON/ ICE RV  C/  IOERIV 
COMMON/ INTEGK/R (4 1 » CROC ( 4) 

CuMMON/D  C CM/D 
DIMENSION  PART (2) 

COMPLEX  THETA, R ,DRDG, 

$ PARTS » 

i THFTAGI 20  I , 

* FBGTUt20)»R  Gl VSN(4»2U)  , R TfcMP(4, 20), R :>AVE(4t20) 

EQUIVALENCE  (PART ( II, PARTS) 

DATA  HT  INC/I. 0/ 

DATA  HMARGN/20. 0/ 


SELECT  VALUES  OF  THETA  AT  WhlCH  FULL-k AVfc  SOLUTIONS  Akt  TQ  BE 
CARRIED  OUT  FOR  USE  IN  LAGRANGE  INTERPOLATION. 
JLT  = TLFFT/TMRSW-i.D 
JRT  = TKIGHT/TMESH+2.0 
JBOT  = TPCT/TMESH-2.0 
JTOP  * TTGP/TMESH 
JTuP  * JTCF+1 


PAP T ( l)  = 
PART ( 2 ) = 
THFTAGI  l) 
PARTU)  = 
PA  RT ( 2 I = 
THFTAG( 2 ) 
PARTi 1)  * 
PAR  T ( 2 ) = 
THCTAG(3) 
PART{  1)  = 
PARK  2)  = 
THETAGU) 
NG  = 4 
CALL  I N I T 


(JRT+l!*TMSSH 
( JTDP+l I+TMCSH 
= PARTS 
( JLT- I) +TMESH 
( JTOPH  >*TMPSH 
= PARTS 
( JRT+ I) *TME$H 
< JBOT-l)*TMESh 
= PARTS 
( JLT-1) *TMESH 
t JB0T-1)*TMESH 
= PARTS 

LG  l THF  TAG ,NG  I 


NGd  = N3*8 

SCLFCT  THE  HEIGHT  (TO  NFARfcST  WHOLE  KILOMETER)  AT  *HICH 
THF  MINIMUM  OCCURS  IN 

THF  SO'JARF  OF  THE  MAGNITUDE  UF  THE  DERIVATIVE  OF 
(Rti.UI/C  ^RT  C=COS( THETA),  SUMMED  OVER  ALL  FOUR 
ELCMLNTS  OF  R-REFLEC T ION  MATRIX  AND  SUMMED  OVER  ALL 


■->c-><~>oooor*oor»o 


POINTS  AT  WHICH  FULL-w'AvE  SOLUTIONS  ARE  CARRIED  OUT  1 
I OK  USt  IN  LAGRANGE  INTERPOLATION.  LERlVATIVES  OF  THE  1 
FULL-WAVF  SriUTIONS  ARE  NOT  COMPUTED.  RATHER*  1 

DERIVATIVE^  i F THE  LAGRANGI  INTERPOLATION  FORMULA  % 

ARC  USED.  NOT L THAT  THE  FULL-WAVE  SOLUTIONS  ARE  I 

CARRIED  OUT  TO  THE  BOTTOM  OF  THE  PKOULk  AFTER  «H1CH  ! 
THfc  FULL-WAVE  SOLUTION  IS  CARRIED  OUT  IN  AN  UPWARD  * 

DIRECT l ON  THPOUTH  FREE  SPACE  OVER  A LURVcO  EARTH  TO  4 

HE  I Cl  TS  AT  ONE  k iLOMtTER  INTERVALS.  THfc  HEIGHT  AT 
WHICH  THF  MINIMUM  OCCURS  IS  PRINTED  OUT  *S  THfc  -1 

•REFLECTION  HT*  AND  IS  THEREAFTER  USED  AS  THE  1 

REFERENCE  HEIGHT  AT  *»HI CH  THF  F FUNCTION  IS  COMPUTED.  | 
IF  IMPRINT  ,NE»  0)  PRINT  911  % 

911  FORMAT  { • I • *•  INTEGRATION  TO  OETEkMl  Nt  REFLECTION  hT— •)  1 

IOERIV  * 0 
RHTEMP  = 9.969 
RF  SAVE  = 9.969 
LIMIT  = NG 
Gi:  = J.C 
DC  Vi  JG=1,NG 
THETA  * THCTAG(JG) 

CALL  I NT  EG 

U CALL  XFER  (R,R  GI VENT 1*JG) *6) 

CALL  XF £l>  IR  GI  VEN.RBOT  ,NGd) 

CALL  XFFF  (R  GIVEN, R TEMP,NG8) 

CALL  XFFR  (R  GIVEN, R SAVC,NG8) 

CALL  SET  LAG  (NG, R GIVEN) 

DO  13  JG*1, LIMIT 
THETA  * THETAG(JG) 

CALL  LAG  DER 
DC  13  1=1,4 

13  Gc  = GB+CA8S(DRDC(I ))**<> 

GR  MIN  * GB 

IF  IMPRINT  ,NE.  0)  PRINT  9U, HTS1NP  A)  * GB 
HTFRST  = HTS(NR  A) 

14  HTLAST  * HTFRST  +HT  INC. 

CALL  INI T FS  (HTS (NR  A), HTLAST) 

GB  * 0.0  1 

DO  13  JG=1 »NG  4 

THETA  = THETAG(JG)  1 

CALL  XFCR  (RBOT ( 1 , JGI ,R  * 8)  | 

CALL  FS  INTG  | 

15  CALL  XFtK  (R,R  Gl VEN( 1 , JG ) , 8 ) 1 

CALL  SET  LAG  (NG, R GIVEN)  | 

DO  id  JG=I, LIMIT  \ 

THETA  = THETAG(JG)  i 

CALL  LAG  DER  1 

DC  16  1=1,4  4 

it  go  = gp+cabsidrdc ( & 

IF  (MPP.INT  *Nl  . <J>  PRINT  9U, HTLAST  ,GB  I 

9U  FORMAT  ('  1 , • AT  HT  = 1 *F7.<!,  IX,  'GB  = ',1PE9.^)  j 

IF  (GB  .GT.  GB  MIN)  GO  TO  17  I 
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RHTEMP  * HTLAST 
LB  MIN  * G8 

CALL  XFER  !R  dlVEN.R  TEMP»NG8) 

GU  TO  16 

17  KHSAVF  = RHTEMP 

CALL  XFFR  !R  TFMPfR  SAVEtN*fi) 

16  HTFRST  * HTLASt 

IF  (HTFRST  .LT.  ( HT  S( 1 ) ♦ *.MARGN).  ) GO  TO  14 
lFtRHSAVE  .GT  « 9.0F9)  GC  TO  90 
U * KHSAVfc 

CALL  XFER  (R  SAVE,R  3IVEN,NG8) 

CALL  SET  LAG  (NG»R  GIVEN) 

C 

PRINT  91i»C,TLEFT,TRI3HT 

913  FORMAT  <»0‘, 'REFLECTION  Hf  SET  TO • » FT. i , IX , *KM» , 

$ &X»*  THETA  RANGE  • '♦Fd.3,‘  TO  NF8.3) 

C 

IF  IMPRINT  .tO.  0)  GO  TO  39 
PRINT  931 

931  FORMAT  ( *0*  » * RfcFLEC TION  CUEFFICICNTS  AT  THE  GIVEN  POINTS--1) 

DO  32  JG*l,NG  x 

32  PRINT  932tTHETAG( JG)f (k  GIVEN! I ,JG) »I *1,41 

932  FURMAT  !»0*»*AT  THETA  = • , 2F9.i,3X, *R  * » »4(2X, 2F9. 5) ) 

39  CONTINUE 

RFTURN  * 

C 

90  PkINT  900,TLfcFT,TRIGHT 

900  FORMAT!  *C‘ , ‘REFLECT  ION  mT  CANNOT  BF  SET  FOR  THETA  RAN*fc  * *» 
$F6.3, * TC  »,F B. 3) 

STOP 

C 

END 


152 
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I MSG  ER  fiPRINT 


Vi 


SOI'WttUT  ! N E PRFL  IN 
FOR  MS  - 
THIS  ii  Hu  T I N «- 


f'ROVI  DE  S PGR  INPUT  UF  ELECTRON  DENSITY  AnD  COLLISION 
H?PQUENCY  PROFILE  CARDS  AND  FOP  LIMITING  TnE  EXTENT 
CiF  THE  TOP  ANO  BOTTOM  OF  THE  ELFCTRUN  DENSITY  PROFILE. 
INPUT  OF  ION  PROFILES  IS  ALSO  PROVIDED  FOR.  FURTHER 
DESCRIPTION  UF  THF  INPUT  IS  GIVFN  IN  A ON A REPORT. 


CGMMun/ h H CGN/NR  NU,HT$  Nui SOI ,ALCNU( 50,3) 

CG4MON/RPRT/  SPRINT 

CCMMON/CLT  OF/  ICUT, CUTOFF 

CL-MMON/FLO  CUM/ AZ  I«  ,C0D  I P , MAG  FLO 

COMMON/ FRQ  CUM/  FREQ 

COM MO N / N R OF  AS/NR  A 

COMMON/HS  CUM/HTSUOl) 

CUMMbN/ALOGN  C/ALUGFNUOl  ,3) 

COMMi;  N/^HP  CUM/ BETA  , hPk  IME  ,SCLHTS  ♦ ENMIN 
CUMMLN/F  XPNU  C/COEFNUC 3 ) , ExPNU( 3) 

COM  4F  N/ICM  COM/ IONS, MR AT  1 0(3) 

CGMMON/EN  COLL/ HT » EN( 3 ) » CNU( 3 ) 

COMMON/WP  COM/OMEGAR, TEMPOS 
CGMMON/HF/HUFWR 
COMMGN/T CPEN  C/TOPEN 
COMMON/JAY  CUM/ JAY 
RFAL  MAGFLDfMRATIO 
DIMENSION  IBC0(20),ENS(3), 
*ITItIp(20)»SAVHT( iOl) f SAVENI 101 ,3) 


1 


’•i 

1 

'■» 


Hi 


£ *************  4*  *****************************************  ******#**4f»#**» 

C 

C INPUT  OF  AN  ELECTRON  DENSITY  PROFILE,  IONS  OPTIONAL. 


READ  90 1, 1 BCD 
PRINT  9 OP,  I BCD 
DO  U3  K =1,20 
lb  ITITLEU)=IBCD(K) 

J = l 

LI  READ  90 4 »H T » E N S ( L ) , ENS  ( 2 ) 

904  FORMAT  ( F7 . 2 , SX ,E9. 2 , E l 0. 2 ) 

IF  (HT  .LT.  0.0)  GO  TO  IS 
HTS(J)  = HT 

IMJ  .Nfc.  1 .ANC.  HTS(J)  .GE.  HTS(J-l))  STOP 
ENS(3)  = CNS(2)-ENS(1) 

NTUTa j 
SAVHT ( J)*HT 
SAVEU  J»  1)=ENS<  1) 

SA  VbN ( J , 2) =ENS( 2) 

SA  VbN ( J » 3) =EN$ { 3) 

PRINT  916,HT,ENS( 1) ,ENS(2) 

91o  FORMA  T ( * • ,r7„2,!?X,  iPE9.2,Ei0.2,tiQ.Z) 
no  13  K=  1 , 3 


n 
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'0 


o o o c*  o o o r>  o o o o r»  o o o o o o o 


r<rw 


Tit  ' 


if  n-N$m  .lt.  i.oe-ioi  ensim  * i.oe-io 

13  A10GFN(J,K)  » AlOG(  ENSi  M ) 

NR  A a J 
J - J + l 

Gu  TO  tl  c 

13  PRINT  9Co»  HT 
F ETUR  N 

**•  # **  ****♦**#$<  ************  ******  *********  ****************  ************** 
ENTRY  REPEAT 

THIS  SECTION  IS  USED  WHEN  THE  ORIGINAL  UNMODIFIED  PROFILE 
IS  TO  BF  USFO  IN  THE  CALCULATIONS 

NR  A®NTCT 
DO  U4  K * 1,3 
DC’  13  4 K Ja 1 ,NTOT 
HTS(KJ)  - SAVHT(KJ) 

IF(SAVEN(KJ,M  .LT.  i.Ut-iOi  SAVEN(KJ,K)  * i.OE-lO 
134  Al UGE N( K J » K J = ALQG IS AVFN ( KJ  »K ) ) 

RETURN 

**********************************/,************************************ 

ENTRY  COLT  IN 

INPUT  Or  CCLLISICN  FREQUENCY  PROFILE  CARDS 
J * 1 

21  READ  901,1  I3CDIL)  ,L  ai  , 20 1 
PRINT  902, ( I3LD1L ) ,La 1,20) 

CALL  COP f (IBC3,dO» 

READ  (69,9051  HT,CNU 
903  FORMAT  (F7.2*<tA,3(lX,E9*2)  1 
IF  (HT  .LT.  0.0)  GO  TO  Iz 
HTS  NU(J)  - HT 
DO  22  K = 1,J 

IF  (C\U(  K 1 .LT.  1.0E-10)  CNUlM  a l.OE-10 

22  ALCNU  ( J , K ) * ALCG  (CNUlM  } 

J = J + i 

Gu  TO  21 

23  Nf  NU-J-1 
RETURN 


*************){******:*:*******************  *♦**  **  ****  ******  ********  *******  * 
ENTRY  SET  EN 

tf 

USE  OF  VARIOUS  NAMELIST  PARAMETERS  TO  SET  UP  A DESCRIPTION  OF  AN 
FXPONENTIAL  ELECTRON  DENSITY  PRCFILF  IN  TERMS  OF 
VALUES  AT  THE  TOP  AND  BUT  TUM  OF  THE  PROFILE. 


c 


HKSti)  = AINTtHPRlME+$CLHTS/BfcTA«-0.5) 

FNA*  l .b5535t-5*COEFNUi  l)*EXPt ( EXPNUt  1 ) ♦BFTA  ) *HTS  t 1)-BETA*HPRIME ) 

At  tail  l ,1)  = ALHG(FNA) 

M5U)  = (AU)G{ENMiN/<7.65&35b-5*COefNUU)mefcTA*HPfUME)/ 

F (EXPNUt  IM-bETA) 

IT  (Hi  SU)  .GT.  0.0)  GO  TO  501 
MTS ) = 0.0 

I NO*  7.o5535b-5*COEFNU(  1 ) *ExP( -BETA  *HPR IME ) 

ALUGFNU,!)  = ALOS(ENO) 

U)  TO  502 

501  AU\ilNt2,l)  = ALOG(ENMIN) 

502  NK  A * 2 

951  FORMAT  ( * • ,F7. 2 » 5X , 1PE9 .2) 

C 

C COMPUTED  PROFILE  PARAMETERS 

C 

P0W*6  *2Bil  853071303* FREW 
POY*- 1. 758  79o0i i/PQW*MAGFLD 
PRINT  213 

213  forma t c / * computed  profile  parameters:'/ 

» T5,'H»  »T  15  » ' NE ' , T27 . ' NU' ,T39  .' X • ,T5l , • V ,Tu3#'Z*  »175.'W»*) 

00  25  Lxl»2 

PONU*COEFNU( 1 ) * EXP ( EXPNUt l)*HTS(L)  ) 

PONE* 7 • 85535D-05*PQNU*  EXP ( BETA*{HT St L )-HPR IME) ) 

PGwR*  3. 182 j5/D09*PONE/PONU 
POX  *3. 182357D09*PUNE/(PuW*P0w) 

POZ*P0NU/P0W 

25-  PRINT  214#  HTS(L),  PUNE#  PUNU,  PCX#  POV,  POZ,  PUWR 

214  FOR MA  T ( F7» i # 1P6E1 2*  3) 

C 

C OET  HR M I NAT  ION  OF  HEIGHT  WHERE  OMEGA-R  EQUALS  2.5C05 
HOF Wf*  *HPR1  ME 
PM  NT  9 52#  HOF  WR 

9^2  FORMAT! ' C» » 5X# • OMGGA-R  * 2.5E05  AT  TOP  HEIGHT  * *,F7.2) 

C. 

RETURN 

C 

0 ***<•>##**>)'’!«**#********#****#********  ******************  ************* 

c 

EM:'Y  CUT  TOP 
C 

C USE  OF  TEMPC-B  AND  TOPEN  TO  LIMIT  THt  EXTENT  OF  THE  TUP  UF  AN 
C ELECTRON  DENSITY  PROFILE  WHICH  HAS  BEEN  INPUT  FROM 

C PROFILE  CARDS.  APPLICABLE  ALSO  TO  THE  ION  PROFILES 

C IF  IONS  ARE  AN  INPUT. 

C 

C IN  THIS  SECTION  OF  THE  PROGRAM  THE  TOP  OF  THE  PROFILE  IS  DETERMINE 
C Tub  NUTATION  USED  IS  THAT  WAITS  t 'OMEGA-R')  IS  DENOTED  BY  'WR'. 

C THE  VALUF  OF  " B"  AS  DESCRIBED  IN  G.E.  TFMPO  REPORT  75-TMP-9  ,V . 7# ’ 

<*.  PAGES  11  AND  12  IS  UENuTt'D  AS  'BCUT* 

C AND  IS  INPUT  IN  TO  THIS  PROGRAM  AS  THE  NAMELIST  VARIABLE  'TEMPOS' 

C 
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f^vtz$rvy$\  -W^i’F-  • 


I 

I 


i 


j 

! 

I 

i 

j 

i 


i 

i 


c 

c 

!C 


c 

c 

c 

c 

c 


c 

c 

c 

c. 

c 


TO  m-TFKMINE  THt  VALUE  OF'BCUT*  TO  BE  USED 
AND  TC  CUT  OFF  THE  TOP  OF  THE  PROFILE 
OMEGA  =6  • 26  cl9E3*FRFQ 
PLASCN«3.U2357Ev 
00  560  JRF V=1 ,Nh  A 
J*N  < A-J»EVH 
HT*MT  S( J ) 

JAY  3 J 

IMJ  .EC.  NR  A)  JAY  * NR  A-l 
CALL  FN  NU 

OMDVNU« 1C.O*OMEGA/CNU( 1 ) 

BCUT*  2. u*OMOVNU 

IFtBCUT  .LT.  TEMPOS ) SCUT  = TEMPOB 

b*(PLA$CR*EN(ll*CNU(l)l/( OMFGA* (OMEGA **2+CNUt  U**2)  ) 

If ( IONS  *NF.  01  B*6h 

b (PL  A$CMEN{2)*CNU(2)  >/(UMfcGA*iaMfcGA**2+CNUU)**c)*MRATlU(2)) 
i ♦ ( P*  ASCN*FN(3)  *CNU  (3) ) / ( OMEGA* (OME  6A**2+CNU(  3)  **2J  *MRA  T 1 0(  3)  J 
1M3  .GT.  BCUT  .AND.  F N ( l ) .GT.  TOPEN)  GO  TO  5c  L 
560  HBOT*  9 

WR*PLASCN*EN(l)/CNU(l) 

If  ( IONS  .NF.  0)  »R*WR-f 
$ PLASCN*FN(2)/(CNU(2)*MRATlOU)l 
b +PLASCN*FN(3»/(CNU(i)*MRATIOO)l 
PRINT  60e 

oOu  FORMAT!  »G*  ,*v.AkMNG—TmE  TOP  OF  THE  PROFILE  CAN  NUT  OE  CUT  OFF.*, 
S » ThE  TCP  OF  THE  PROFILE  MAY  Be  TO  LOW.'  ) 

PRINT  6lCt  B»HiR 

blO  FORMA  T( *C*  » * TEMPO-H  AT  TOP  * * , 1 PEI 1 . 3, 5X , • WA I T S OMEGA-R  AT  *, 
S'TUP  = S1PE11.3I 
Gti  TO  9cC 


HERE  THE  VALUE  OF B AT  THIS  HEIGHT  IS  GRfcA  TER  THAN  TEMPO- 

531  1 F ( J .NE.  NR  At  GO  TO  583 


ii 


IF  ThE  HEIGHT  IS  THE  BOTTOM  OF  THE  PROFILE 
PRINT  603,  8,TFMP0B 
603  FORMA T C * 0 * * • THE  TOP  OF  THE  PROFILE  CAN  NUT  BE  SET.  *,/2X, 

$'AT  THF  BOTTOM  OF  THE  PROFILE,  B * »,1PE13.3,*,  WHICH*, 

$ * IS  G TEA  TER  THAN  THE  VALUE  OF  TfcMPU-B(  * • , 1PL  U.  3,  * ) . • »/ 

*5X,  'CHECK  THE  INPUT  VALUES  OF  — TEM  FOB  —AND—  TOPEN--.  • , / 

* 5X , * ALSO  CHECK  THE  VALUES  OF  THt  ELECTRON  AND  ION  DENSITIES  », 
i * A T THE  BOTTOM  OF  THE  PROFILE.*,// 
b 3 OX , ****PROGRAN  EXECUTION  STOPS****) 

STOP  Llll 


**  * I NTFRPOL AT  I UN*** 

5<j3  BTOP  = B 

HTTOPsHT  SU) 
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onnnnnno 


HTnOT*MlSt  J*ll 

64  Ht- (HTT0FRHT8CT 1/2.  Q 
C Al  l fN  NU 

!•>--  I *'l  ASO\*EN<  i)*CNUUl  )/U!HEGA*(OMtGA**2*CNU{  U**ti  1 
n ( IL'NS  .EC.  0)  82«0.0 
I* I IONS  .NE.  0)  B2« 

* IPt  ASCK*FN< 21 *CNU(2 1 l/(OMEGA*IUMEGA**2*CNU< 21**21 *MRAT!0( 21) 
i tll't  ASLN*LN{3)*CNU(3n/iCME(iA*<OMEGA**2*CNUt  31  **M  *MRA  T IQ{  3)  ) 

= 2 

IMhTTOP-HTBOT  .LT.  3. 10)  30  TO  566 
IMP  .GT.  ECuT  .AND.  ENI1)  .GT.  TUPEN)  GO  TO  3t5 
dilUT  *ft 
HT  POT  * ET 
GO  TO  04 
665  BTUP*B 
HTTOP*HT 
GO  TO  04 

50u  KR*PL  A SCN*EN{ 1 1 /CNU ( 1 1 
IFI IONS  .NF.  0)  *R*RR+ 
i PLA  SCN*EM 2 1 / (CNU 1 21  *MRAT  10(  2)  1 
i + PLA SCN*EM3  1/  (CNU 1 3 ) *MRAT  10(3)1 
PRINT  6uC 

600  FOMATI  *C*  *'THE  TOP  OF  THE  PROFILE  IS  SET  TO  Bt  — 4 1 
IFUuNS  .EC.  0)  PRINT  906,HT,EN(i) 

906  FORMAT  t ' • ,F7. 2*  5X  , 1PE9.<; , IPE9 . 2 , 1 PEV .21 

IH  IONS  .Nfc.  01  PRINT  V06,HT,EN( 1 1 , EN( 2) , EN(3 1 
PFINT  6l4,BCUT,*R 

6it  FORMA  T ( * C* » 1 AT  THE  TOP  Of  THE  PROFILE  B = SifEU.3, 

* • OMEGA-R  * ' t 1PE1 1.3 1 
HTS(l)  = HT 

ALOJfcN(l,l)  = A LOG!  FN(  1 1 1 

IF( IONS  .EO.  0)  GO  TO  67  ' 

ALOGFNI  1,21  * ALUGI  ENUl) 

ALPGlNl  1,3)  = AL0S(EN(31) 
o 7 CUNT1NUE 

1F(J  .EC.  11  GO  TO  900 
JN=l 

JPl  = J+l 

00  6a  JJ  * JPl, NR  A 
JN*-JN  + i 

HTSUN1  = HTS(JJ) 

DO  6fc  K * 1,3 

68  ALLGENI  JN,Kl  * ALOGEN(JJ,K) 

NR  A * JN 
900  CONTINUE 


■0 

vl: 

$3 


***  *#  ***  ***************************#*#.**********  **  ************  ******, 

**BOTTOM  CUT  OFF** 


THIS  SECTION  CUTS  OFF  THE  BOTTOM  OF  THE  PROFILE. 


II  ( N**2  * 1-A-JB),  THAN  THOSE  PROFILE  DENSITIES  *MICH  COMPUTE 
TO  **B « LFSS  f HEN  ••CUTOFF"  ARE  NEGLECTED 

II  Tm f PRl'FllE  pPTTiV,  IS  TO  BE  CUTUFF  THEN  "ICuT*  ••, 

IF  NUT  ThFN  ICUT=0 
IM  ICUT  .LT.  i)  GO  TO  70* 

CO  ViO  JKFV  = l, NR  A 
J=NR  A-JKFV+i 
HT=HT  S I J I 
JAY*J 

IHJAY  .EU.  MR  A)  JAY  = NK  A-l 
CALL  EN  NU 

ni  = <PLASCN*FNU)*CNU(  i ))/ (OMEGA* { OMEGA **2*CN0 U )***) ) 

IH  IONS  .E«.  0)  82*3*0 
iniONS  .NF.  01  82  = 

* (PI  ASCN*E!\i<2)*CNU(2n/(CMtGA*li)MfcGA**2KNU(2)**2)*MRATIQU) ) 

% *■  ( PL  ASCN*E  N(  3 ) *CNU  ( 3)  ) / l OMEGA* (OMEGA **2+CNU(  3 J **2 ) *MRA  T I G(  3)  ) 

8* hi ♦82 

IMP  *GT.  CUTOFF)  GO  TO  6300 
8801  *3 

5'JJ  CONTINUE 

I NT  6030 

6030  rc.PMAT(  •OS'  THE  PROFILE  BOTTOM  CAN  NOT  RE  CUT  OFF.*,/ 

$ • ALL  6-VALUES  (AS  A FUNCTION  OF  HEIGHT)  ARE  LESS  THAN  CUTOFF.*,/ 
f>  • THIS  IMPLIES  THAT  THE  PROFILE  IS  VERY  CLOSE  TO  rREE  SPACE.*// 
i 3 OX , . ****PRQGRAN  EXECUTION  STOPS***' ) 

STOP  2*2* 

63 JO  I F I J .NE . NR  A)  GO  TO  o301 

PR  I i\T  704, CUTOFF, HTS(Nk  A),B 

04  FORMA  T (• C* , * THE  BOTTOM  OF  THE  PROFILE  CAN  NOT  PE  CUT  OFF', 

*»  USING  CUTOFF  = *,E13.3t*  AT  HEIGHT  * *,FI0.3,/ 

i>  • BECAUSE  THE  VALUE  OF  8 AT  THE  BOTTOM  OF  THE  PROFILE*, 

*HERE  P = *,  IPE13.3, *»  IS  LARGER  THAN  CUTOFF. •/) 

IMfPRINT  .FU.  0)  GO  TU  4ill 
PFt.MT  <<  1 1*  ,61  ,B*,  8 

4112  FORMA  T ( * THE  VALUES  ARE  F-tLECTRONS  * *,IPFU.<»,'  B-IONS  = ', 

* 1PF11.4,'  B-TCTAL  = *,1PS11.4/) 

4UI  CONTINUE 

GO  TO  702 

♦♦♦INTERPOLATION*** 

63  H 8TC-P*  3 

HT  1 uP  =H  T S ( J ) 

HTI3GT  =HTS<  J*l) 

3o4  HT=(HTTrP+HTBOT )/2.0 
CALL  FN  NU 

Bi  = ( P LA  SCN*EN ( i ) *CNU( I ) ) / ( OMFGA*( OMFG A**2*CNU (11**2 ) ) 

I F ( luNS  .bu.  0)  12  = 0.0 
I F ( IONS  .NF.  0)  B2  = 


$ (PI  ASCN*EN(2)*CNU(2)  )/(GMEGA*(0MEGA**2<-CNU(2i**2)*MRATiat2n 
i ♦(  *H  ASIN*FN(3  )*CNU(3)  ) /(OMEGA* (UMEGA**2+CNU<  3) **21 *MRA T IO(  3) ) 
P«ft  UM2 

IM  HI  Tut  -MTBI.T  «l  T.  J.xu)  GO  TO  ioo 
IHH  .0  T . CUTuFF)  GG  TO  3o3 
B6UT  =ii 
HTB.H  = FT 
. GO  10  3o4 
3cb  B70P*'» 

HTTlJC  *HT 
GG  111  3fc4 
3otj  Cot'll  I NUt 
A 1 = EN  ( 1 ) 

IF « H NS  .EC.  0)  GO  TH  obcl 
A2=  FN(2) 

A3*  E N( 3 ) 

GG  TO  6602 
c661  A2  * J.O 
A3  * 0.0 
6o62  CONTINUE 

PRINT  703, HT, CUTOFF 

703  FORMAT! *0* , ’THE  BOTTOM  PROFILE  HEIGHT  IS  * • ,Fi0.3, 

$•  AT  B(CCTOFF)  * «,E12.3,//I 
I F( BP RI NT  .Eg.  0)  GO  TO  4il3 
PRINT  4114,A1,A2, A3. 31,82,3 
41 W FuRMA  T ( • • , 

i ’ THE  ELECTRON, PI  SITIVE  ION  AND  NEGATIVE  IJN  DENSITIES’, 

**  ARE  EQUAL  TO  »,//  IX , IP EIO . 3 , 3A, 1 PE  10. 3, 3X, iPE lu. 3 , // 

♦ IX,  • B-E  L EC  7 RUNS  = ’♦IPU1.4,*  3-IONS  = ’,IPEU.4»*  B-TDTAL  * * 

♦ IPE 11  .4/) 

4113  CONTINUE 

NR  A = J + i 
HTSINR  A)  * HT 

ALOGt  N( N R A , l ) * ALOS( 6N( 1) ) 

I F ( IONS  .EG.  0)  GO  T1  tb 7 
ALQGE  N(  NR  A, 2)  * ALOGIENUH 
ALOGEN(N«  A, 3)  = ALOG( EN( 3 ) ) 

667  CONTINUE 


702  CONTI  NUT 


PRINT  913 
> 13  FORMAT ( ’ 1 * ) 

*#********<  **«#*  *****  A********  ********************  *********  v ************ 

THIS  SFCTION  IS  USED  Tu  DETERMINE  THE  PROFILE  HEIG1I  WHERE 
THE  VALUE  OF  OMEGA-R  EQUALS  2,t>EO*> 

THE  VARABLE  *WR'  IS  USfcO  AS  WAIT’S  OMEGA-P 


DO  7*0  JREV=l,NR  A 
J*NR  A-JREV+1 
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S3. 

S' 

'.-K. 


m 

t; 

& 


n*' 


• • 


5, 

r 


HT*HT$(J) 

JAY*J 

IFIJ  *rc.  MR  A)  JAY  * «MR  A-i 
C A 4. L EN  NU 

Wf«*PLASCN*EN(  U/CNUU.) 

IH  III  NS  .NF.  01  wR=WR+ 
i PLA  SCN*EN( 2 1 / (CNU (21  *MR AT  I G(  2 1 1 

* tPLA$CN*FN<3l/(CNU<il*«RATIfH3l) 

IF  UP  .01.  UMEGAk)  GD  TL'  7ol 
BR'lT=B 

7*5 0 CONTINUE 

riOFrtP =HTS( II 
PR  I NT  3bC8  »H0f WR 

3606  FGRMATI  *C*  ,f>X,'  EARNING  THt  TUP  OF  THE  PROFILE  IS  TO  LOW. 

*•  FOP  OMEGA-R  TG  BE  EQUAL  TO  2. 5E05 .* » /5X. * THE  VALUE  OF*. 

*•  TOP-HEIGHT  IS  THEREFORE  TAKEN  AS  THF  HEIGHT  AT  THE  TUP  OF  *. 

* 'THF  PROFILE*, //1CX,*TUP  HEIGHT  * *,F7.2I 
31  TO  90  CO 

C 

7ol  IFIJ  .NE.  NK  A)  GO  TO  7oJ 
HCFWR*HTS(NR  A) 

PRINT  36G3.HUFWR 

3603  FORMAT! »C» »5Xf* THE  VALUE  OF  THE  COMPUTED  — OMEGA-R AT  THE  *, 

S * B QT  T 0 M OF  THE  PROFILE  — HOF*R  = *,F7.2,*  --  *,/!>X,*IS  *, 
**GREATFR  THAN  THE  INPUT  LIMIT  OF  -OMEGA-R—*) 

GL  TO  9CC0 
C 
C 

C ***INTFKP0L4TIGN*** 

C 

7Ji  BTOP=  3 

HTTOP  =HT  S ( J ) 

HieOT^HT  S(  J + J I 
764  hT*lHTTCF+HTBCn/2.0 
CALL  EN  NU 

KR=PLASCN*EN(1)/CNU (I) 

IFUuNS  .NF.  0)  rtR=WRF 
$ PLA  SC  N*EM  2 1 / 4CNUI2)  *MRAT  I0(  2 1 1 
$ <-PLASCN*ENC3)/  (CNU  ( 31  *MR  AT  10(31) 

IF( HTTOP-HTBOT  .LT.  0.10)  GU  tO  766 
IFIWR  .GT.  OMEGAR)  GO  TO  7b5 
BBOT^B 
HT30T  =HT 
GO  TfJ  7 &4 
7ot>  6T0P=b 
HTTOP  =HT 
GU  TO  764 
76o  HOFwE  =HT 

PRINT  3O00.H0FWP 

3630  FORMA  T( * C * » 5X » * OMEGA-R  fcwUALS  2.&E05  AT  TOP  HEIGHT  = 

9300  CONTINUE 
RFTURN 


* ,r-7.2) 


T,  .-^  v-h-c, 


i? 


c 

c 

c 


c 

c 

c 


c 

c 


c 


c 


SUBROUTINE  F.lNAl  ;j 

FOR  MS  J 

snUTIM-  FOR  TOLL  ()w  1NG  THE  c 1 GFN-AN6l.ES  AS  THE  F FUNCTION  IS  CHANGED  | 

fhOK  THAT  USING  LAGRANGE  INTERPOLATION  TO  THAT  USING  . | 

EXACT  f ULL-WA^E  biUUTION  VALUES  OF  REPI.LCHON  | 

COEFFICIENTS.  4 

CUMMCN/KXACT  C/  KEXAf  T * „ | 

CUMMCN/THE1A  C/THETA  1 

COMMON/SEP  COM/SEP  | 

Cf;MMliN/TCt  CJM/TOL  t 

COMMGN/EIO  COM/  E I GEN!  1 00 ) » N*<  E | 

CUMMC  N/MPRMf/MPRINT  | 

COMMON/ ICEPV  C/IOERIV  1 

DIMEf  SI C N FRACTSI  32  ) | 

CCMPl  FX  J 

i THETA,  J 

* SAVE  T,  J 

i EIGEN,  r 

S F.OPDT,OELT,  j 

S F l , Or  IDT  j 

DATA  MAX  NP/o/ 


IF  IMPRINT  .NE.  0)  PRINT  900 

900  FORMAT  I *1’ ,' ITERATIONS  FOR  EXACT  SOLUTION* J 
IDfcPIV  = 1 

DC  19  J E= 1 » Nk  E 

10  FRAC7  S ( 1 > - 0.0 
FPACTS(Z)  * 1.0 
NR  ST  PS  * 2 

NS  = 2 

IF  IMPRINT  .NC.  OJ  PRINT  901, Jfc 

901  FORMAT  I * * , I 8) 

THETA  * FIGENIJH 

1 1 SAVE  T = THETA 
NCOUNT  * 0 

FE  FRCT  » FRACTSINS) 

FI  FRCT  * 1,0-Ft  FRCT 

12  IF  IMPRINT  .NE.  J)  PRINT  902, THETA 

902  FORMAT  (•  ',10X,* THETA  =*,2F9.9i 
KFXAC  T=  1 

CALL  F OFDT  I TH FT  A , F, DFDT ) 

IF  IMPRINT  .Nfc.  0)  PRINT  109, F, DFDT 
10*t  KiRMAt  (»  4,oOa, ’EXACT  F , 2E11.3, 3x, 2EL1.3) 
IF  (NS  .EQ.  NR  STPS ) GO  TO  19 


13  KFXAC  T=0 

CALL  F DFDT  ( THETA, FI ,ui  I UT J 
IF  IMPRINT  .ME.  J ) PRINT  1 03 ,F 1 ,DF I DT 
103  FORMAT  (•  »,60X,’APPRX  F = »,  2E 11.3 , 3X » 2E1 1 .3) 
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■„ln„,  .^-T  , ,.-  n n **9e**m*mm  uiih*'*m 


F ■ Fl  FPCT*FUFE  FRCT*F 
OFtfT  * FI  FRCT*DFIOTfF£  FKCT*DFDT 
IF  IMPRINT  .NG.  0)  PRINT  106,F,DFDT 
106  FORMAT  (*  * toOXi'COMBN  F = • , 21 1 1. 3 » 3X » 2E11  . 3 1 
1 4 PEL  I * -F/DFDT 

THETA  * THETA+DELT 
NCUIJNT  = NCQUNT+1 

II  (CABSIOELT ) «GT . SEP  .AND.  NCOUNT  .GE.  21  Gu  TO  20 
II  (CABS(DELT)  .LT.  ,1.3*T0l)  GC)  TO  16 

If  (MS  *NF  • NR  STPS  .AND.  CABS(DELT)  .IT.  SEP)  GO  TO  16 
GO  TO  12 


I' 

I1- 


C 


c 


c 


20  If  (MPRINT  .NF.  0)  PRINT  906 

906  FORMAT  ( '0* , ‘RESET1  ) 

IF  (NR  STPS  .GE.  MAX  NR)  GU  TO  17 
THETA  • SAVE  T 
DU  22  NREV*NS,NR  STPS 
N * NR  STPS-NREV+NS 
22  F«ACTS (Mi)  - FPACTS(N) 

FRACT SINS)  * (FRACT$(N$-l)+FRACTS(NS+i))/2.0 
NR  STPS  = NR  STPS  + 1 
GO  TO  11 

16  IF  (MPRINT  .NF.  0)  PRINT  907 

907  FORMAT  ( *0*) 

NS  * NS-l  1 

IF  (MS  .LE.  NR  STPS)  GC  TO  11 
EIGEN (JE  ) = THETA 

IF  (MPRINT  .ME.  0)  PRINT  902, THETA 
GO  TO  19 

17  PRINT  109, THETA 

109  FORMAT  ( *0* INVALI C MODE  AT*,2F9.4t  * TRY  SMALLER  RECTANGLE  AROUND 
$ THIS  AREA  WITH  APPROPRIATE  RANGER  AND  RANGE  I VALUES  AND  *, 

$ ‘RE-EXECUTE1) 

NR  E = NP  E-l 
I F( NP  E ,EQ.  0)  GO  TO  33 

00  18  UU=JE»NR  E 

18  EIGEN  ( J J ) * EIGENUJ+l) 

GO  TC)  10  * 

19  CONTINUE 

IF  (NR  E .LE.  1)  GO  TO  33 

1 STOP  * 0 
NkEMl  * NR  E-l 
DO  3?  J*  1, NRFM1 
JPi  = J+l 

00  32  J J=JP  1, NR  e 

IF  (CABS(EIGEN(J)-EIGEN(JJ) ) .GT.  TOL)  GO  TO  sc 
PRINT  9 0 5 , J , J J 

905  FORMAT  ( *0' , * Ef  GENS  NR • , I 3, IX, * AND*  , 1 3 , IX, * AF E TO  3E  RESOLVED*,/ 
j • TRY  SMALLER  RECTANGLE  AROUND 

A THIS  AREA  WITH  APPROPRIATE  RANGER  AND  RANGE  VALUES  AND  RE-EXECUTE 
J*  ) 


i 
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«l}p.-  -e^7 


PRINT  302,EIGEN(J)»EIGEN(JJ) 

30«£  FORMAT  CO*, ‘EIGEN  ANGLES  Al  *,2F9«4,lXt  *AN0*,2FV#4»  LX,*  ARE  TO  BE  R 
$f SCLV  ED  * ) 

ISTOP  * l 

32  CONTINUE 

IF  I ! STOP  .Nt.  C)  STOP 

33  RETURN 


90  PRINT  9‘JC 

990  FORMAT'  ( *0 » ,* PROBLEMS  IN  SUBROUTINE  FINAL*) 
STOP 


w*tr  - ,_.„ 


■ ;.l:^^^^'V- i~  :■ ; 


SUBROUTINE  NE  OUT 
C FOR  MS 

C ROUTINE  PROVICING  FOR  PUNCHED  OUTPUT  OF  EIGEN  ANGLES 
C 

COMMON/fc  IG  CUM/ EIGEN! LOO) * NR  E 
COMMON/HTS  CUM/HTSUOl) 

COMMON/NR  OF  AS/NR  A 
COMMON/H  CCM/H 
CCMMON/FRQ  COM/FREQ 
COMPLEX  EIGEN, 

$ THETA, 

$ S,SO 

DATA  PI/3. 141593/ 

OATA  RTO/57. 29578/ 

DATA  VEL  LT/2.997928E5/ 

DATA  RE/6369.427/ 

C 

C 

HAVE  NR  * 2.U*Pl*FKEQ*luOO.O/VEL  LT 
ACOEF  - -6.6tt59**AVE  NR*1000.0 
CAP  K « i.C/I i.O-H/REI 
C 

PUNCH  97 i,HTS CNR  A) 

971  FORMAT  (IX, 'D  * *,F7.2,»,*) 

PRINT  972, HTS (NR  AJ 

972  FORMAT  ('0«,lX,'D  * »,F7.2,»,») 

PUNCH  975 

975  FORMAT  (IX,  'EIGEN  = •) 

PRINT  976 

976  FORMAT  (•  • , LX,  ‘EIGEN  * *,20X, ’ATTEN  VUVERC*) 

DO  77  JE*l »NR  6 

THETA  « FI GEN(  JE) 

PUNCH  977, THETA 

977  FORMAT  ( IX, 2( F8 .3 , « ,» )) 

S * C SI N ( THETA/ RTD) 

SO  * S*CAP  K 

ATTEN  = ACQEF*A  IMAG (SO) 

VOVERC  * l. O/REAL (SO) 

PRINT  97b, THETA, ATTEN, VOVERC 
77  CONTINUE 

978  FORMAT  ('  ' , IX, 2( F8.3 , • , » ) »FL5 .3, F9 .5) 

THETA  * 0.0 

PUNCH  977, THETA 
PRINT  978, THETA 
. RETURN 
C 

END 


C 

C 

c 

c 


SUBROUTINE  NP  OUT 
FOR  MS 

RCIUTlNt  FOR  COMPUTING  AND  PRINTING  TABLE  AND  PUNCHED  CARO  OUTPUT 
ASSOC  I A TEU  »I1H  NPUNCH  OPTION.  FURTHER  DESCRIPTION 
UF  OUTPUT  IS  GIVEN  IN  A ONA  REPORT. 

COMMON/ I C COM/ 1 CENT (20 1 

CUMMON/MPRNT/MPKI NT 

C.OMMON/nPNCH  C/NPUNCH 

CUMMON/CRn  PRT/CAROPT 

CCMMCN/CRD  PNC/CAROPN 

COMMON/  RhO  CUM/ RHO, *A IT  RH 

COMMON/ f ID  COM/AZIM,COGIP,MAGFLD 

COMMC N/GND  COM/ FP SR ,S I GMA 

CCMMGN/FPG  COM/FKEO 

COMMON/H  CCM/H 

COMMON/ W\/I*AV£  NR 

COMMON/HF/HOFWR 

COMM(  N/THETA  C/THETA 

COMMON/ FIG  COM/ U GENU uO)# NR  E 

CuMMON/INTEGR/XU  ,X21»XU,X22 

CGMMON/PB  CCM/NUMil  ,NUM22fDENU,DfcN22 

CC'MMUN/F  IF2  C /F 1 , F2  ,HG , F i ZT , FIZR, F2 ZT » F2ZR  ,GF  12 T 

COMPLEX 

$ THETA, EIGEN, 

$ Xil,X2i,X12,X22, 

* NUMU  ,NUM22»UENU,0EN22, 

$ Fi,F2,HG.FUT,FUR,P2ZT,F22R,GFlZT, 

* C, 

•A  RU,R21,R12,R22, 

* R3AR11,R8AR2Z»D1 1,022 » 

% THE  TAP, TERM l ,TFRM2,TERM3,TERM4» 

$ R3ilPl,RB22Pi, 

$ FM,OFMDT, 

$ L'FOT,  FACTOR, 

A S,CP,CASIN, 

i Wl,Q2,U3,FOVRD,FOVRO, 

S XVZ,XEZ,X8Z, 

5.  SP,  STURF1 , ECUMP , EXLOG 

Rf AC  MAG FLO 
INTEGER  CARDPT ,CARDPN 
OAT  A RF/6369.427/ 

DATA  RTD/57. 29573/ 

DATA  ALN  T EN/2. 302585/ 

DATA  PI /3. 141593/ 

DATA  RTO/57. 29573/ 


I 

.5 


i 

vjl 


PRINT /PUNCH  *I0»  INFORMATION 
IFIMPRINT  .NE.  0)  PRINT  901 , IDENT 

901  FORMA  T ( *C« ,20A4) 

IF ( CARDPN  .GT.  0)  PUNCH  902,I0kNT 

902  FCRMATI20A4) 


,*S 

«s 

I 


, ¥"*■ 


* '«5J'rf-'«il  --yvj^r^ Ta',^ ^ »r f ! '* 


P<?>S! 
‘ '€& 

.m 


I 

p- 

f,v 

►> 


pf 


1 


c 

C PUNCH  KhO  CARD,  PRINT  H VALUt  AND  TAdlE  HEADINGS. 

IF  (HPP1KT  .NF.  0)  PRINT  9? I *RHQ»FREG  t AZIM»COOIP»MAGFLD» SIGMA»EPSR 
971  rriKMAI  ( *0*  »• F ' ,F7*  3»  * f-  • tFb.Ht ' A*  yF8.it'  CSfo.3.'  M»  ,1PF10.3» 

> * S ' « ElO.  3,  ' E',OPF*>.U 
. JF1CARDPN  .GT.  Oi 

*PU\CH  972,PH0,FREQ,AZ!M,C0DIP»MA3HD,S13MA,EP$R 
■972  FORMAT  ( *R  * tF7.it 1 F*,F8.4,»  A*,FB.3»*  C',F8.3,*  M»,IPE10.3, 
i ' S 1 t ElO. 3»*  E*  tOPPb. 1) 

PRINT  9 74, H 

974  FORMAT  (*Q',9X,'H  «*,Fo.2) 

PRINT  97 5 

97b  FORMAT  (•  ' * IX, 'MODE* ,oX, * THETA* ,6X»*ATTEN  ' »3X»  * VUVERC' »3X» 

> «WA1T  MAG  * » 2X  » ' W AIT  ANG* , 8X, « THETAP • , 13X, 'POL ' I 
IMNPUNCH  .EQ.  2 .AND.  CARUPN  .EO.  U PUNCH  93*, FRED 

9J9  FOPMA  T ( Pd.  3) 

C 

AfUSf  * -b. 66 58 89 6* WAVE  NR*1000.0 
k'ODE  * C 
I DERI  V * l 
C 

DO  74  JE*1,NR  E 
THE  Tl  * EIGEN! JE) 

C 

C FORMATION  OF  THE  USUAL  KEKFCTION  MATRIX,  R,  FROM  (R+l.OI/C  ANO 
C FORMATION  JF  ThE  USUAL  RBAR  MATRIX  VALUES  FROM 

C FORM  USED  TO  FINO  EIGEN  ANGLES.  ALSO,  COMPUTATION  OF 

C DERIVATIVES  FOR  USE  IN  COMPUTING  DFOTHETA. 

CALL  F DFDT  i THETA , FM , DFMDT ) 

C = CCOSITHETA/RTO) 
fill  * C*X11-1.J 
Ril  = C*X2l 
R 12  * C*XU 
*22  = C*X22-1.0 
DU  * C*XUMU-DENU 
D2*  * C*NUM22-DcN22 
RBARll  * DENli/DU 
RBAR22  * 0EN22/D22 
KBllPi  * C*NUM1 1/Dl 1 
R822PI  = C*NUM22/D22 
C 

DFDT  * DFMDT*tC**2/ ! Oi I ♦D22l*RTD 
S = C SINITHETA/RTD) 

FACTOR  = CSORT t SE/DFDT 
C 

ITERM*l 

IF ! CA BS ( l. O-Rl 1+RBARll ) .GE.  CASS i l .0-R22*R JAR*2I  > IT6RM*2 

C 

C VLF-LF  EXCITATION  TERMS  (E.G.  THE  "T*  • TERMS  TO  BE  USED  FOR 
C \iPUNCH  = l OR  NPUNCH  - 9 ) . 

T E 0 M i = RRUPl**2*U.0-PBA«22*R22)*FACTUR/<RBARll*Fi*Fii 
rtRM2  « RB22P1**2*U.O-RBARU*RU)*FACTOR/!RBAK22*F2*F2) 

TER  M3  = R8 1 IP  l*RS22Pl*P"ACT0R*R2 1/  ( F l*F2) 


167 


TCPM4  * FI2/R21 

clF  EXCITATION  TERMS  (6. <5.  THE  TERMS  TO  BE  USED  FUR  NPUNCH  * 7 
XVZ=T£RMl*S*S*FlZT*PlZk 
XtZ*-TFRFi*S»GPUT*FlZK 

"Vmi™/ 2&™ris  »««  m»E  »««  m s.vEn  b* 

XVZM*CAS$<XVZ) 

XVZA=CANCIXVZ) 

XtZ  Ms CABSIXEZ) 

XtZA*CANG( X6Z ) 

XBZMsCABSUBZ) 

X8ZA*CAN'GI  XBZ) 

ejCEN  ANGLE  REFERRED  TO  GROUND  LEVEL. 

C pT  *^0 SORT  (C**2 UC**2-1. Ol*l  2. 0*RAT  I0+:>.0*RAT  10**2) ) 

THETAP  * 90. J-CASIN(CP) *RTO 

ATTENUATION  and  PHASE  VFLOCITY  REFERRED  TO  GROUND  LEVEL. 

SP  = S/( l.C-H/RE* 

ATTEN  * ACGEF*A IMAS  (SP ) 

VUVERC  * l.O/PEAKSP) 

aAIT'S  EXCITATION.  

STORE  1 s RBilPl**2*(l.0-P.BAK22*R22l 
*PAC  T OR /R  BAR  1 1 
ECGMP  = l-G**2*$T0REi*S**2 
EXL03  * CLCGi ECOMP*0.5*rAVE  NR*RA1T  RH) 

ViM  * 20.C*REAL(EXL0G)/ALN  TEN 

WA  * AIMAG(EXLUG)-PI/2.Q 

IF  l*A  .LT.  -PI/2.0)  WA  = WA*2.0*Pl 

MODE  CONVERSION  TEF.*S  to  BE  USED  FOR  NPUNCH=6  AND  NPUNCH«9. 
XM*  [. ABS(ECOMP) 

XA«  CANC-(CCOMP) 

Ql* 1. 0~R li*R6AR il 
Q2=l.0-R22*RBA«22 

Ti  cUs(OUBl«!  CABS1Q2)  I fOVAD*U3*01/<A12*RBAR22l 
ift  CABSIMI  .66.  CABSCOU  I 60VRD  - 03*1  R2WBAR  111  /02 
FUVRO  = ( FCVRD*Fl)/F2 

POLARIZATION. 

DL  = CABSt R2L*RBAR22) 
n?  = CABSl L.Q-RBAR1 i*Rll ) 

tF  (PI  . GE  . D2)  POL  = CABS(1.0-RSAR22*R22)/D1 
If  (02  .GE.  DU  POL  = C ABS I k U*RBAR  11) /D2 

PRINT  VALUES  FOR  TABLE. 

PMNT  MODE » THE  t A»  ATTEN  .VOVERC  »WM»WA»TH6TAP»  POL 
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nooroonoonno  non  r»o  r*  oo 


932  FORMAT  I*  •*I4,2F8.3,F6.3,F9.*>,F10.3iF9, 


a.  as t.  it*.  \ , 


* 


NPUNCH  iPTICN  FOP  06TA  IN  ING  UUTPUT  CAPOS 

NPUNCH* I*#*  GIVES  OUTPUT  CARDS  FOR  HOR I ZONTALY  HOMOGENOUS 
MODE-SUM  OR  WKB-SUM  IN  TERMS  Of  I T*  SI 
NPUNCH* 2*#*  GIVES  OUTPUT  CARDS  IN  TERMS  OF  5NVLF  OUTPUT 
NPUNC h* 7***  GIVES  OUTPUT  CARDS  FOR  INPUT  INTO  ELF-WKB  MOOE-SUMS 
NPUNCH«8***  GIVES  OUTPUT  CARDS  FOR  INPUT  TO  MODE' CONVERSION 
IN  TERMS  OF  (FOVR) 

npuno-9***  gives  output  cards  for  input  into  mode  conversion 

IN  TFRMS  OF  BOTH  <T*S>  ANO  (FOVR) 

CARO  PN*0***  GIVES  USUAL  MOQE  SUMMARY  PRINT  OUT  BUT  NO  CAROS 
CARO  FN«l***  GIVES  USUAL  MOOE  SUMMARY  PRINT  AND  CARDS 
CAPO  PT»0***  CAUSES  THE  OUTPUT  CARDS  TO  NOT  BE  LISTED 
CARD  PT«l***  CAUSES  THE  OUTPUT  CARDS  TO  BE  LISTED 

PUNCH  * • NPUNC  H '»*  OPTION  CARDS *MPRINT»  USED  ONLY  FUR  0E8UGG.ING 


•a 


i 

'a 


5; 

'A 

ti 


I 


IF  IMPRINT  .NF.  0)  PRINT  933»  THETAP  »TERM1 »TERM2 » I <! 

S THETAP»TERM3»TERM4  I li 

933  FORMAT  < *0 » , • l*  ,0P2 F9 .6 f IX,  IP4E 15. 6/ • * ,»2S0P£F9.S*iX.lP4El5.fe)  1 \ 

IFIMPRINT  .NE.  01  PRINT  930  I fi 

930  FORMAT! • • ) I % 


I F ( NPUNCH  .EQ.  1 .AND.  CARDPT  .fcO.  I i PRINT  930 
I M NPUNCH  .EQ.  I .ANO.  tARDPT  .EU.  I J 

♦ PRINT  93i»THETAP|I TERM  »TSRM1 » TERM2  »THETAP» ITERM* TERM3» TERM4 

931  FORMAT  (•  • , • 1*  ,0P2F9.i>,  i i,  IP4E15.8/'  • , ' 2*  »0P2F9.  * ,J  1 » 1P46 15.6/ ) 
1 FI NPUNCH  .EQ.  1 .AND.  CARDPN  .EQ.  1 ) 

♦ PUNCH  934»THETAP » ITERM » TERMlt  TERM2  »THETAP » I TERM*TERM3 » TERM4 
934  FORMAT  I • 1 %0P2F9  . i> , 1 1 , 1P4E 15. 8»/ 1 * 2*  ♦ 0P2F9.5, 1 1 , 1P4E  15.8) 

IFINPUNCH  .EQ.  1)  GO  TO  oOO 

IF  INPUNCH  .EQ.  2 .AND.  CARDPT  .EQ.  1 I 

♦ PRINT  937.  ATTEN  t VOVERC  »’  WM  » WA 

937  FORMAT! »0*,4F10. 5) 

IFINPUNCH  .EQ.  2 .AND.  CARDPN  .EQ.  1 ) 

♦PUNCH  938. ATTEN » VOVERC .WM.WA 

938  FORMAT  I 4 F10.5 ) 

IFINPUNCH  .EQ.  Z)  GO  TO  600 

IFINPUNCH  .EQ.  7 .AND.  CARDPT  .EQ.  1 J PRINT  930 

IFINPUNCH  .EQ.  7 .AND.  CARDPT  .EQ.  ,1  ) 

♦ PRINT  626,THETAP,XVZM,XVZA,XEZM*XEZA,XBZM,XBZA 

620  FORMAT!  2 (F 10 .5 , • , • ) . /5X.31 1PE13. 4. * , * , 0PF8.3 , • , • I / ) 

IFINPUNCH  .EQ.  7 .AND.  CARDPN  .EQ.  I ) 

♦ PUNCH  627.THETAP.XVZM. XVZA . XEZM. XE ZA . X8ZH.XBZA 

627  FORMA T { 5X»  2IF10 .5 » * » ' ) » /5X»  31 1PE13. 4»  * # 1 * 0FF8.3 1 * ♦ *• ) I 
IFINPUNCH  .EQ.  7)  GO  TU  600 

IFINPUNCH  .EQ.  8 .AND.  CARDPT  .EQ.  1 ) PRINT  930 

IFINPUNCH  .EQ.  8 .AND.  CARDPT  .EQ.  1 I 

♦ PRINT  93 5»  THETAP,XM,XA,FOVRO,HOFMR 


A 

k 


m 


- 


9 J5  FuRMATI  0P2F9.5,  1PE 14. i>, 0PF9.  a,  l P2E  16. 8 ,0PF?.2/I 

IF(NPU\CH  .Eli.  a .AND.  CARDPN  .EQ.  1 ) 

♦PUNCn  93fc » ?HFTAPtXM,XA,FUVKl),HOFWR 
93o  FORMAT (OP2F9.&,  1" £ 1 4. 5 , OP F9  . :>,  iP2f  1 6. 3 , 0PF7 .2 ) 
l H NP UNCH  .EQ.  3)  GO  TO  cUJ 

IHNPUNO  .E..  » .AND.  CARQPT  .EQ.  1 ) PRINT  930 
tHNPUNO  .EQ.  9 .AND.  CAROPT  .F0.  I ) 

* PRINT  9 31 »TriFTAP  » I TERM, TERM! » TERM2 .THETAP , l TERM, TERM*, TERM4 
IMNPUNO  .EQ.  9 .AND.  CAROPT  .EQ.  1 ) 

♦PRINT  933,  ThFTAP,XM,XA ,f UVRO, HOFWR 
iriNPUNCh  .EQ.  9 .AND.  CARDPN  .EQ.  I ) 

* PUNCH  934  »ThFT  AP , I TERM,  TERM!,  TER  M2  »THETAP,ITEFM»TcRR3,TfekM*» 
I F I NPUNCH  .EQ.  9 .ANO.  CARDPN  .EQ.  i ) 

♦PUNCH  936,  THETAP,XM,XA,FOVRO,HOFNR 
600  CONTINUE 
79  CONTINUE 

I F C C A RD  HN  .GT.  0)  PUNCH  700 
7 00  FORMAT  {•  •} 

RETURN 

FND  v 

* 

/ 


r>  o ftoon; 


FUNCTION  CASIN  (SI 
ROUTINE  FOP  COMPUTING  .THE 

argument, 

FOR  MS 


COMPLEX  SINE  FUNCTION  OF  A COMPLEX 


COMPLEX  CASIN, S.»SSQtSPOWER*SUM, TERM, PARTStCtCPLX  I 
OATA  CPLX  1/(0. 0*1.01/ 

DIMENSION  PART  ( 2) 

EQUIVALENCE  (PART(l), PARIS! 


IF  (CABS(SJ  .GT.  0.71  GO  TO  20 

FACTOR  *1.0 

SPORT R * S 

SSQ  * S**2 

SUM  * S 

IF  (CAB S (SUM!  .LT.  UOC-71  GO  TO  12 
DO  il  <*3,99,2 

FACTOR  * FACTOR*(<-2.0!/(K-i.O! 

SPOWER  * SPOWER*SSO 
TERM  * FACTOR*SPOWER/K 
SUM  * SUM+TERM 

PARTS  * TERM/SUM  , 

IF  (ABS(  FAFT(  l!  !+ABS( PART  (2) ) .LT.  i.OE-10!  GO  TO  12 

U CONTINUE 
12  CASIN  * SUM 
RETURN 

20  C * C SORT ( l.0-S**2! 

CASIN  - -CPLX  I*CLOG(C+CPLX  I*SI 
RETURN 


C 


^'w?  ^ Vt  ■’ :'  _l  * '*'v,*v,,‘  " ^v*^‘ “ ,7‘‘  '“  t! 

■ — — I 


FUNCTION  CAN3URG) 

IMPLICIT  PEAL  (A-H,fW) 

COMPLEX  A«G,MINUSI/l0.i-i.i/ 

A R k ~ A R 

Af  G I = M I NLS 1 * A P G 
C AN  5= ATAN2 ( ARGi ,AR3R) 

IMAfGl  .LT.  0.  ) CANL=  CANG+6.*83  16  5 

f'CT  UK  M 
END 


I 

s 


i 

'I 
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SUBROUTINE  INTEG 
FOR  Mb 

THIS  SUBROUTINE  PERFORMS  AN  INTEGRATION  OF  THF  DIFFERENTIAL 
EQUATIONS  FOR  THE  IONOSPHERE  REFLECTION  MATRIX 
USING  RUNGE-KUTTA  INTEGRATION  "FORMULAS.  THE 
INTEGRATION  VARIABLES  ARE  THE  ELEMENTS  OF  THE  MATRIX 
(R+1.0)/C  WHERE  R IS  THE  REFLECTION  MATRIX  DESCRIBED 
3Y  BIDDEN.  IF  IDERIV  IS  SET  NON-ZERO,  THE  DERIVATIVES 
OF  (R  + l .0  )/C  ELEMENTS  wRT  t=COS(THETA)  ARE  ALSO 
INTEGRATION  VARIABLES.  THE  SET  OF  HEIGHTS  AT  WHICH 
PAIRS  OF  INTEGRATION  STEPS  BEGIN  AND  ENU  IS  STORED 
IN  THE  ARRAY  ‘RKHTS* . SIZES  OF  THE  STEPS  ARP 
DETERMINED  BY  COMPARING  THE  VALUES  OF  THE  ELEMENTS 
OF  LR+l.OJ/C  AFTER  A PAIR  OF  STEPS  AND  VALUES  OF  THE 
SAMP  VARIABLES  AFTER  A SINGLE  DOUBLE-SIZE  CUMPAR1SUN 
STFP.  THE  (RU.OJ/C  VARIABLES  USED  IN  ThE  COMPARISON 
STFP  ARE  DENUTLD  AS  *X‘.  IF  THE  DIFFERENCE  IS  TOO 
LARGE,  THF  STFP  SIZE  PAIRS  ARE  CUT  IN  HALF  BY  AIDING 
A NEW  HT  TO  ThE  LIST  IN  ‘RKHTS*.  IN  ORDER  TO 
ENHANCE  STABILITY  IN  OTHER  PARTS  OF  THE  PRUGRAM,  NO 
HEIGHTS  ARE  DELETED  FROM  THE  LIST  UNLESS  THE  LIST  IS 
RESET  BY  A CALL  TO  ‘SET  RK*. 

COMMON/NR  OF  AS/NR  A 
COMMON  /PTOL  C/RTOL 
CUMMON/HTS  COM/HTSUOi) 

COMMCN/XPRNT/XPRI  NT 
CCMMPN/  IMEGK/RU6)  ,l)RJhi  lo) 

COMMON/X  INTGR/X(8I  ,OXDHU) 

COMMON/ EN  COLL/HT 
COMMUN/WN/WAVE  NR 
COMMON/ I CERV  C/IDtRlV 
COMMUN/N  CCM/N 
COMMON/CVRFLO/I OVFLO 
COMMON/ JAY  COM/JAY 
DIMENSION 

S ROt  16)  .HDELROC  16)  ,DELRi( 16)  ,DELR2Il6)  , 

i X0( b) ,HDE 1X0(6) , DElXH 8 ) , DEL  X2( 6 ) , 

$ P SAVEU6), 

% RKHTS(ZOl) 

INTEGER  XPRINT 
DATA  MAX  NR/201 / 

DATA  OHM  IN/0.017 
C 
C 

N = 6 

It-  (IDEFIV  .NE • 0)  N * 16 
IOVFLO  = 0 

I F ( XP  R I NT  .NE.  0)  CALL  R COLS 

THIRD  = 1. D/3.0 

CALL  IN  IT  S 

JAY  * 1 

JRK  = 1 


l; 


HI  « H7  S C 1 ) 
CALL  S MTRX 
CALL  INITL  R 


CALL  XFER  (R i X i 8) 

IFtXPRIM  .NF.  01  PRINT  vUl 
931  FORMAT  ( *0 * ) 

iriXCRINT  .N£.  01  CALL  P*  I NT  R 


C 

c 


c 


c 


NR A Ml  * NR  A-l 
DC!  79  J»1,NRAM1 
JAY  * J 

30  CALL  XF£R(R,R  SAVE,N) 

HT  = RKHTSCJRK) 

CALL  XF  CP  (R,X,fi) 

31  DFt  H * (PKHTSIJFtUl  >-RKHTS(  JRK))*0.5 
If  (ADSCCFLHJ  « LT  • DHMIN)  GU  TO  90 
DH  * OELF*WAVf  NR/2.0 

ht-h  = C.t)*L'H 
TC'H  = 2.C*DH 


BEGIN  FIRST  PUNGE-KUTTA  STEP  OF  THE  PAIR  AND  THE  COMPARISON  STEP. 
CALL  R DERIV 

IF  IIOVFLC  .Nt.  0)  GO  TO  oO 


DU  32  1*1, N 
P0( I)  * R C 1 1 
HDELROC  I ) = DROHC  1 1 >M0H 
32  R(U  = P0(  ljHHDELROU) 


DO  33  I*1,B 
XU(  I)  = XU  1 

HL'ELXGU)  - HDELPJ(n*2.0 
33  X(I)  = > CC  I )+HOfcL  XOU) 


HT  = HT  + C.i»*DCLH 
CALL  S MTKX 
CALL  R CEPIV 

I F ( IOVFLC  .NF.  0)  GO  TO  cO 


DO  34  1*1, N 
UELRIU)  = DR  DH  ( I ) * DH 
34  PCI)  = ROU  )*0.5*D£LR1U  ) 


CALL  R DERIV 

I. F I IOVFLC  .NF.  0)  GO  TO  t>0 


DO  35  1*1,  N 
DF.LP2  (I ) * DRPHU  J*DH 
35  Rill  = PCI  I )*0ELR2(  I) 


HT  = HT  >C«5*DELH 
CALL  S MTRX 


1 *> 

If 


!J 


1 
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O O 


C 


' i't  *?M*r  '.V ' • 


DO  47  1=1, b 
HuELXi  * OXl)H(l)*OH 

PELX4  = (HDtLXJ(I)+OfcLXl(  l)+OELX2(  I )+HDEL X 3)*TH IRQ 
47  X ( I ) = XO ( D + DELX4 
C 

C CSTIMA  Tt  TRUNCATION  ERROR  AND  CUT  STEP  SIZE  IF  APPROPRIATE. 
I F ( XP R 1 N'T  ,NE.  0)  CALL  PRINT  R 
00  51  I = 1,7,2 

ERP.SU  * (RtI)-X(I))**2<-(R<  H-l)-X<  1 + 1))**2 
RSQ  = R ( U**2+R<Ul)**2 
I F (PSO  .01.  1.01  ERPSU  = ERP3Q/RSQ 
IF  (FRRSU  .GT.  RT0L**2)  GO  TO  61 
51  CONTINUE 
GO  TO  70 
C 

60  IF  (XPRINT  «NE.  0)  CALL  PRINT  R 
ol  IF  (XPRINT  .NE.  0)  PRINT  960 
960  FORMAT  ( » • ,'0VkFL0‘) 

IF  (NR  RK  .GE.  MAX  NR)  GO  TO  95 
IOVFLO  = 0 

CALL  XFER ( R SAVE,R,N) 

CALL  XFER  (R  SAVE, X, 8) 

HT  = RKHTS(JRK) 

CALL  S MTRX 
C 

NRRKM 1 * NR  RK- 1 

DC  62  JCCUNT=JR!\»NRRKM1 
JJ  = NRRKMl-JCOUNTf JRK 
62  RKHTS ( J J+2)  = RKH TS ( J 0+ 1 ) 

RKHTS ( JRK+1 ) * (RKHTSt JRK)+RKHTS< JRK+2) )*0.5 
NR  RK  = NR  RK+i 
GO  TO  31 
C 

70  JRK.  = JrlK+1 

IF  (A  8S(  RKHTS! JRKI-HTS1  J + l) ) .GT.  0.001)  GO  TO  30 
79  CONTINUE 
RETURN 


RESET  THF  INTEGRATION  STEP  PAIRS  TO  BE  THE  INPUT  PROFILE  SEGMENTS. 
ENTRY  SET  RK 
DO  81  J= 1 , NR  A 
61  RKHTS ( J ) = HTS(J) 

NR  PK  = NR  A 
RETURN 

r 

90  PRINT  990 

990  FORMAT  ('0‘,‘STEP  TOO  SMALL  IN  INT EG*) 

STOP 

C 

J'j  PRINT  995 

996  FORMAT  ('O', ‘TOO  MANY  STEPS  IN  INTEG* ) 
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n.innnfin 


subroutine  en  nu  ;| 

F 3d  MS  J 

COMPUTATION  OF  ELECTRON  DENSITY  A*D  COLLISION  FREQUENCY  (AND  ION  4 

DhNSITY  IF  APPROPRIATE)  AS  t ■ FUNCTION  OF  HEIGHT.  'i 

IF  PROFILE  WAS  INPUT  FROM  FORMATTED  CARDS  * LOGARITHMIC  I 

Interpolation  is  used,  see  also  notes  in  subroutine 

PRFLIN.  I 


CUMMCN/NR  CF  A S/NR  A 
COMMON/ I CN  COM/ IONS 
COMMON/JAY  CUM/J 
COMMON/ HTS  COM/HTSUOl) 

COMMON/HTLOGN/NK  NU,HT$  NU( 50) ,ALCNU( 50, A) 

CCMMON/ALOGN  C/ALQGEN( 101,3) 

COMMON/ EXPNU  C/COEFNU( 3 ) , EXPNUt 3) 

COMMON/EN  COLL/HT  »£N(  3) »CNU( 3) 

DATA  JNU/I / 

FACTR  = 1»0/(HTS(J) -HT  S ( J+l ) ) 

Nk  SPEC  * 1 

IF  (IONS  .NE.  0)  NR  SPEC  * 3 
FI  s (HT-HTS(J*i) )*FACTR 
F2  * I HT  SC JI-HT)*FACTR 
DO  il  Ks l » NR  SPEC 

11  EN ( K)  * EXP( ALCGEN( J,K )*Fl+ALOGEN( J+1»K)*F2) 

IMCOEFNU(l)  .LT.  0.0)  GO  TO  IS 

OC  12  K«l, NR  SPEC 

12  CNU(K)  * CUEFNU (K)*6XP( EXPNU ( K )*HT ) 

RETURN 

1 i>  IF  ( JNU  .GT.  NK  NU-1 ) JNUM 

io  IF  (HT  ,LE.  HTS  NU(JNU)  .OR.  JNU  .60.  1)  GO  TO  ll 
JNU  = JNU- l 
GO  TO  it 

17  IF  ( HT  .GE.  HTS  NU(JNUM)  .OR.  JNU  .EQ.  NR  NU-1)  GJ  T0‘  18 
JNU  = JNUi 

GC  TO  17 

18  HU  19  K * 1,  NR  SPEC 

ALN  = A LCNUt  JNU » K )+ ( ALCNUt  JNU+1 »K )- ALCNU(  JNU,  K) ) 

1 *(HT-HT  S NU(  JNU  i ) / ( HTS  NU(  JNU+l ) -HTS  NU(JNU)) 

19  CNUIK ) * EXP(ALN) 

RETURN  . ’ 


-t 

5 


ti 

’Jr 


■3 
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C 


END 


mm 


SUBROUTINE  R OUT  > 

C FOR  MS  I 

C OUTPUT  OF  PbNGF-KUTT A INTEGRATION  VARIABLES,  USED  ONLY  FOR  DEBUGGING. 

C t 

COMMON/ INTEGR /Rid)  * 

CUMMON/X  INTGR/X! 8)  * 

COMMON/EN  COLL/HT ,EC  OMlT<2)  i 

C '} 

c 

ENTRY  R COLS  t 

PRINT  9QC  : 

90 0 FORMAT  I 'C»,8X,»HT»  ,I0X,  • HR  11«  ,L6X,  *URi*  ,16X,»IHU*  ,17X,*IR1*  I ’ 

RETURN 

C 
C 

ENTRY  PRINT  R 
PRINT  901,HT,(X(I), 1*1,8) 

PRINT  901,FT,|R(I|,l*i,6| 

901  FORMAT!*  • , FiO. 2, 4! 2X , F V. 5,F9. 5) I 
PRINT  902 

902  FORMAT  (*0»i 
RETURN 

C 


SUBROUTINE  XFER  <A*B,N| 

C FOR  MS 

C ROUTINE  FOP  TRANSFERRING  ONE  ARRAY  INTO  ANOTHER. 


C 

DIMENSION  A(U,b(IJ 
C 

c 

DO  11  J*1»N 
U BIJ)  * MJ) 

PFTURN 

C 

END 


r»ooooooooo 


tf  V.**2f  «*ij  »jrT'  — 


SUBROUTINE  INITL  R 
FOR  MS 

COMPUTATION'  OF  (R+1.0)/C  FOR  REFLECTION  FROM  A SHARPLY  BOUNDED 
ANISOTROPIC  IOi\uSPH6R6  OF  SEMI- INF  INI T E r XT  ENT 
WHERE  R IS  THE  REFLECTION  COEFFICIENT  MATRIX  AS  DEFINED 
BY  SUDDEN • SOLUTION  IS  USED  AS  INITIAL  CONDITION 
FOR  RUNGE-KUTTA  INTEGRATION.  THF  SOLUTION  IS  BASED 
ON  RADIO  SCIENCE  PAPER  VOL.  3,  AUG.  i9t>8»  P.T92. 
DERIVATIVES  WRT  C=CC SITHETA ) ARF  ALSO  COMPUTED  IF 
IDERIv  IS  SET  NUN-ZERO. 

COMMLN/ThCTA  C/THETAI2) 

COMMON/ XPR NT/ XPRI NT 

COMMPN/M  MTX/Mll,M2i,M3A,ML2.M22»M32tML3»M23,M33 

COMMON/ INTEGR/RU.R21»Kl2»R22,DRU0Ct  0R21  DC  * OR  i 20C  * DR  220C 

COMMON/C  ccm/c 

COMMON/ S CCM/S 

COMMON/ ITGRV  C/ IDERIV 

COM  PI  EX 

* C.CSOfSi 

> MlL»M2ItM31»  Mi2 1 M22  »M32 » MI3  * M23 » M33 » ' 

S RlliR2l»RL2*K2ctDRllDCtDR21DC»  DR 12DC  » DR 22 DC  » 

S QTEMP(4)»EIPi04»Q(2J» 

$ B4»  63  »B2  * B1 »BO» 

$ DU,Dl2,Dl3tOJif  032»033, 

* P 1 2 ) * T ( 2 ) • 

t DENtFACTOR, 

i DSDC i DQDC { 2) » DOENDC  » 

$ DB3DCfOB2DC  * OB1DC » DBODC ♦ 

* CD1 1DC»  DD13DC  »C031DC »D033DC  » 

4 UPDCI2) »DTDC<2) 

INTEGER  XPRINT 

DATA  EIPI  04/(0.7071 07 »u. 7071 07)/ 

CSQ  = C**2 

BOOKER  wUARTlc  COEFFICIENTS  AND  ITS  FOUR  ROOTS. 

B4  = 1.0+M33 
Bi  « S* ( R 13+M31 ) 

B2  = -(CSQFM33)  *t  i . OfM  1 1 ) +ML3+M31-U.  0+M33  )*(  CS0+M22)  *M23*M32 
B i = S* ( H12*M23+M21*M32- t CSQ+M22 ) *(  Mi 3+M3 1 ) ) 

BC  = I i.C+Mli)*{C$Q+M22)*(CS0  + M33)+Ml2*M23*M.-,H-ML3*M21*M32 

* -M13*  (CSQ+-M22  )*M3 l-Il.O+Mll)  *M23*M32-MI2*M2 1*  IC  SQFM33) 

CALL  OU  ARTC  ( B4 1 B->f  62,  bl,  BO,  QTEMP) 

SELECTION  L F Trtt  Tw  ROOTS  CORRESPONDING  TO  UPWARD  TRAVELLING 
WAVES  AS  BEING  THOSE  OF  ANGLE  LESS  THAN  4b  BUT 
GREATER  THAN  -13:>  DEGREES  IN  THF  COMPLEX  PLANE. 

K = 0 

DC  21  M = l,4 

IF  IPEALIEIPI04*QTEMPUT)  ) .LT.  0.0)  GO  TO  21 
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Strap*® 


WMVVWK'ipiptrw  ~" 


21 


K = K + l 

IF  (K  .GE<  3)  GO  TO  90 
OIK)  * CTEMPUT) 
CONTINUE 

IF  (K  . Nt » 2)  GU  TO  90 


C 

C 


IFIXPRINT  .NE.  0)  PRINT  901 .THETA. ( 0 ( J ) .JE1 .2) 

901  FORMAT  PC*.* THETA  * S 2Ffe . 3, 5X, »G  * 1 »2(E15.4,l 13.4) . 


/) 


SOLUTION  AND  ITS  DERIVATIVES. 


REMAINDER  OF  THE 
DO  31  J*i,2 
Dll  * l.C+Mll-Q(J)**2 
OU  » M12 
013  = M13+QI J )*S 
D31  * M31+QI J )*S 
D32  = M3  2 
033  = CSC+M33 
DEN  * , Di  l* C 33-0 13*D3l 
P(JI  * 1-C12*D33*D13*D3*)/0EN 
31  TUI  « k.1  J)*P(J  l-S*I“Dii*D32*D12+D3l)  / DEN 


0)  GO  TO  50 


IF  1 1 OF R IV  .EO. 

OSDC  * “C/S 

OB  3 DC  = CS0CMM13+M31) 

DB2DC  * “2 .0*0+1 1 .0  4M1 1 + 1 .0+M33 ) 

0B1DC  * (DSDC/S)*0l“S*<:.0*C*(H13+M31) 

OBODC  = 2.0*C*<  Ii.0*-Mll)*ICS0+M22+CSQ+M33)“Mi3*M3l-Mi2*M21) 


DO  41  K- 
DQOCI K) 


1.2 


D011DC 
DIU  3D  C 
nD3inc 
DD330C 
DDENDC 
OPOCIK)  = 
41  DIDCIK)  = 
$ 

& 


-U  I DB3DC+QI K ) ♦082DC )*QC K )+D8  IDC  I *Q (K ) + U80DC ) 
/((  (4.0*B4*Q ( K)+3.Q*63)*0{K)  +2 .0  *B2) *QI K ) -*-B  1 1 
“2.0*0(K)*0QDCIK) 

0 ( K) *L)SQC 
Q(K) +OSQC 
2.0+C 

Dil*OD33DC+DDllDC*D33-Dl3*DD3iDC-DD13Ut*Dil 
“DDENOC+P (K) /DtN* ( “D12+DD33DC +001300*032) /DEN 
Q(K)*OPDCUU+D<aDClK)*P(K) 

-(-DI  l*032+Dl2*D3i)*IDSDC-S*DDEN0C/DfcN)/DEN 
-S*t-D011DC*0324D12*DD31DC)/DEN 


50  DEN  = mi)*C+P(l))*(C+U(2)  )-(T(2)*C+P<2)  )*«C+QC  1)) 
FACTOR  * 2.0/DEN 

Rll  E IT  11  )*( C + QI2 ) )“TI2)*(C+Q(l)))*F ACTOR 
R22  * I IT!  1)*C+P( 1) )“( T I 2)*C+P(2) ) ) ♦FACTOR 
R 12  * -(T{i)*P(2)-T(2)*P(l))*FACTOR 
R^l  E “ICI  1)  “Cil  2)  ) *FACTOK 

IF  (IDERIV  .EO.  0)  RETURN 

DDENIC  = ITU)*C+P(  i))*U.0*DQDCI2)  ) 

$ ♦ <Tm  + DTDCm*C+DPDC(i))*IC+Q(2)i 

$ “IT  (2)*C+P(2)  1*1  l.O+OUOCi  D) 

* “( T I 2 ) f DTDC I 2 ) *C+DPOC I 2 ) ) *(C  +Q( 1 ) ) 
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^ '.ujt.Kf  ,!ll 


hr 


° ***k 3 ^p^'-T  ^^s?f  ftrw'*#  i^. 


‘<5?  r£*^a'  PW^g&V  ‘^3*' 


C 


c 


0P11DC 


i 

$ 

$ 

$ 

$ 

t 

$ 


DR220C 

0R12DC 

0R21DC 

RETURN 


-RH*0DENOC/DEN 

♦ ITUI*{l.Q+DClUC(2))*-DT0C  U)*(C*QI2I) 
-T<2)*U.Q+n00C(lM-OTOC(2)*(C+0Mni*F4iT0R 

-H22*r0EN0C/i*)tN 

♦ 4 1 TC  1)«>DTDC(1)*C*DPDC(1)  ) 

“(T!2)  + DTDC!2) *C+DP0C (2 ) ) )*F ACTOR 

-R12*DDENDC/DtN 
-<mi*DPDC(2)*0T0Ct  U*Pt  2) 
-T(2)*0P0C(l)-DTDC(2i*P(l  ))  ♦FACTOR 
-R21*0£)EN0f,/DeN 
-U)QDC<  U-OQOCU)  >*FACTOR 


90  PRIM  9tC 

900  FORMAT! 'C* » 'PROBLEM  IN  SORTING  Q VALUES*) 

PRINT  995»  THLTA  »UT£MP 

99i>  FORMAT  ('O', 'THETA  = • ,*  Ftt  .3 1 5X  # • 0 * * ,4!  iPEii.i,  iPEU.S)  ) 
STOP 

END 
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SUBROUTINE  QUARTC ( B4»FQUE  83. SIX  B2.F0UR  PI, ONE  BO.Q) 

C FOR  M$ 

C SOLUTION  FOR  THE  ROOTS  OF  A FOURTH-ORDER  POLYNOMIAL  (UUARTIC 
C EwUATtUNI  TAKEN  F«UM  BURNSIDE  ANO  PANTUN  ( W04)  THE 

C THEORY  OF  EQUATIONS.  A SUMMARY  OF  PfckTHENT  EQUATIONS 

C IS  GIVEN  IN  RAOJU  SlIENCE  VOL.  3,  AUG.  i Yob ,PP. 792-795. 

C 

COMPLEX  FOLK  P3,SIX  32, FOUR  31, ONE  B0,Q,B4, 

S h»I*6«H  P R I M fc » G °RIME. 

* SO  ROCT.P  POS,P,LCG  P, 

i CUB  RTO ,C UB  RTI,CU9  R T2 , OMEGAi .OMEGA* , 

$ ROOT  P, ROOT  Q.KUUT  R, 

$ TWLV  B3,TRLV  fc2 » F , OFDQ, DE L Q»FB4 

COMPl  EX*lo  B3,B2,Bi,bO,B3  SQ 
REAL  MAG  PCS, MAG  NEG 
DIMENS1CN  0(4) , P RI (2) 

DATA  OMEGA  l/(  -0.5, 0 .86u02540 jB)  / , OMEGA 2/ ( -0. 5 ,-0. 8a602S<tU36 1 / 
EQUlVAL  ENCLIP  ,P  Kill)  ) 

C 

c 

63  = FOUF  83/(4.0*84) 

82  * SIX  82/(6.0*84) 

91  * FOUR  B1/U.0*B4) 

BO  = ONE  BG/34 
C 

B3  SQ  * 83**2 
H * 62-B2  SQ 

I * 6 0-4  «0*B3*B 1+3. 0*8 2**2 
G = P i+P3*(-3. 0*82+2. 0*83  SO) 

H PRIME  * -1/12.0 

G PRIME  - -G**2/<,.0-H*(H**2+3.Q*H  PRIME) 

C 

SQ  ROOT  * CSQRT (G  PRIME**2+4.0*H  PRIME**3) 

P = ( -G  PPIME  + SU  Rnon*o.i> 

MAG  PUS  » AtiS ( P R I ( 1) ) + AbS( P R I (2  ) ) 

P POS  * P 

P a ( -G  FRIMF-SQ  ROOT ) *0.5 

MAG  NEG  = AB  S ( P RI(l))  + AfaS(P  KI(2  ) ) 

IF  (MAG  PCS  .ST.  MAG  NEG)  P * P POS 
LOG  P * CLOMP) 

CUB  RTO  = CF.XPl  LOG  P/3.0) 

CUB  RT1  = CMEGA 1*CUB  RTO 
CUB  RT2  a OME GA2*CUB  RTO 
C 

ROOT  P * CSQRT (CUB  RTO-H  PRIME/CUB  RTO-HI 

ROOT  Q = CSURTtCUB  RT1-H  PRIME/CUB  RTl-H) 

ROOT  R = CSQRT ( CUB  RT2-H  PRIME/CUB  RT2-H) 

I F( CA BS ( G)  .LT.  I.0E-50)  GO  TU  21 
SIGN  = -ROOT  P*RQOT  Q*ROGT  R*2.0/5 
IFISIGN  .LT.  0.0)  ROOT  R * -ROOT  R 
21  Q(l)  = ♦ROOT  P+ROQT  Q+ROCT  R-B3 
0(2)  * +RCUT  P-ROOT  Q-KOOT  R-B3 
Q ( 3 ) = -PCOT  P+ROOT  Q-ROOT  R-B3 


* 


* 


a 


$ 

.3 
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SUBROUTINE  GUARTC  ( B4»FQUF  B3,$!X  82, FOUR  61, ONE  30, Q) 

FOR  MS 

SOLUTION  FOR  THE  ROOTS  OF  A FdURTH-ORDfcR  POLYNOMIAL  (JUARTIC 

EwUATlUN)  TAKEN  FROM  BURNSIDE  AND  PANTUN  (1/04)  THE 
T HE OR V OF  EQUATIONS.  A SUMMARY  OF  PfcKT iNENT  ECUATIONS 
IS  GIVEN  IN  RADIO  SOlENCF  VOL.  2,  AUG.  I Voo  ,PP. 792-795. 

COMPLEX  FOLK  P 3 » S IX  62, FOUR  31, ONE  B0,Q,P4, 
i h,I,G,H  PR IMfc »G  °R  IME, 

i SO  ROCT ,F  P0S,P,LLG  P, 

* CUB  R T 0 » C Uft  RT1 ,CUB  R T2 , OMEGA l » OMEGA* , 

S ROOT  P,ROOT  UtRUUT  R, 

$ TWLV  B3  ,T  i»LV  t2 , F,OFUQ,DEL  Q»FB4 

COM  PI  EX*  io  B3,02,Bl,b0,B3  SO 
REAL  MAG  PCS, MAG  NEG 
01  MEN  SICK  0(41,  P R!<2) 

DATA  OMEGA  i/( -0.5, 0.86o02  540j8) /, OMEGA 2/ ( -0.5  »-0* 8060254036 1 / 

EUUl VAl EKCt(P  »P  RI(I)  ) 


B3  a FOUR  63/ (4.0*84) 

B2  * SIX  82/(6.0*84) 

91  * FOUR  B1/(4.0*B4) 

BO  * ONE  BG/B4 

B3  SO  ■ 83**2 
H * 62-02  SO 

I * 6 0-4.0*83*81+3.0*82**2 
G * B l+B3*(-3. 0*32+2.0*63  SO) 

H*  PRIME  * -1/12.0 

G PRIME  * -G**2/4.0-H*(H**2+3.0*H  PRIME) 

SO  ROOT  » C SORT  (G  PRIME**2+4.0*H  PKIME**3) 

P = ( -G  PPIME  + SU  ROOT  I *0.6 

MAG  PUS  = AbSiP  R I ( 1) I + Ab S C P R I (2 ) ) 

P POS  = P 

P * {-&  FRIME-SQ  ROOT )*0.5 

MAG  NFG  = AB  S ( P RI(l))  + AbS(P  KH2 ) ) 

IFIMAG  PCS  ,ST.  MAG  NEG)  P - P POS 
LOG  P * CLOMP) 

CUB  R TO  = CEXP( LOG  P/3.0) 

CUB  RT1  » GMEGA 1*CUB  RTO 
CUB  ft  T2  = OMEGA2*CUB  RTO 

ROOT  P = CSQRT ( CUB  RTO-H  PRIME/CUB  RTO-H) 

ROOT  Q a CSURT { CUB  RT1-H  PRIME/CUB  RTi-H) 

ROOT  R = CSQRT ( CUB  RT2-H  PRIME/COB  RT2-H) 

1F(CABS(G)  .IT.  1.0E-50)  GO  TO  21 

SIGN  = -ROOT  P*RQOT  y*ROOT  R*2.0/S 
IF { S I ON  .LT.  0.0)  ROOT  R a -ROOT  R 
21  Q(l)  = ♦ ROOT  P+ROOT  U+KOCT  R-Bi 
0(2)  a ♦ SCUT  P-ROOT  O-KOOr  R-B3 
0(3)  * -RCOT  P+ROOT  Q-ROOT  R-B3 


c 

C 

C 

c 

c 

c 

c 

c 

c 

c 


r 

c 


subroutine  r mtrx 

FOR  MS 

COMMUTATION  OF  M MATRIX  EL  CM ENT  S AS  OE  FINED  BY  BUDDEN  IN  PROC. 

ROY.  SOC.  (LONDON!,  A227 , PP.5U-537  { iVaS) . ThOSE 
COMBINATIONS  OF  M MATRIX  ELEMENTS  USED  1:M  THE 
T MATRIX  RHICH  DU  NOT  INCLUDE  USE  OF  THETA  ARE  THE 
■ FINAL  OUTPUT  OF  THIS  ROUTINE.  THE  DUMMY  INDEXING 

ON  L IS  USED  IN  VIE*  OF  POSSIBLE  STQRAufc  (AS  FUNCTIONS 
OF  HEIGHT)  AND  RE-USE  OF  THESE  COMBINATIONS  FOR 
DIFFERENT  VALUES  OF  THETA. 


CfMML'N/PFQ  CUM/ FREQ 


COMMON/FLO  COM/A/ IM ,COD I P ,MAG  FLD 
CCJMMOM/H  CCM/H 

COMMON/ I CN  COM/ I UNS , MR AT  1 OI 3 ) 

COMMClN/WN/hAVE  NR 
r OMMUN/tN  COLL/HT ,EN(3) ,CNU(3) 

COMMON/M  MTX/M1 1,M2 l,M31 ,M12 ,M22 , M3  2, Mi 3 , M23 , M33 
COMMON/ STUPE  X/ XL1 ( 001 ) , X44( 00 II , XI 2( UU 1) , X34( UU1 ) , Xl4(  UO 1 ) » 
h X3L ( 0C1 ) * X42 (COL) *X32(001)»X4l(Q0i) 

COM  PL  FX 


S 

$ 

$ 

$ 

i 

t 

i 

t 


i 


U,USQ  , D» I UD, 

USQD, TA.TB, 

D TEMPtCPLX  I , UUTEMP, 

MI3D,M31D,M23D,M32Dt 

M^332D,MI33ID,M2331D»M3213D» 

Mli,M2I,Mil,Ml2,M22,MJ2»M13tM23,M33, 

Xli  ,X44fXl2»X34,Xl4tX31»X42»X32»X-,l 
RtAL  MAG  FLD,LY,MY,NY, IUU  PRT  » MRATI 0, 

LSOYSO, MSOYSQ»NSQYSU, LMYSO, LNYSQ.MNYSQ 
DATA  CPL X 1/(0. 0,1.01/ 

CATA  PI/3.141592653/ 

DATA  OTP/ 0.0174 53 292 52/ 

DATA  COEFF  X/ 3 . 1823 57F03' , COEF F Y/ 1 ,75  3 79fcFl 1 / 

DATA  VFL  LT/2.997928E03/ 

DATA  RE/fc3e>9.42  7/ 

DIMENSION  U PARTS ( 2 ) , USU  PRT(2),D  PARTS(2 ) , IUD  PRT( 2) 
BQUIVALFNCE  (U,U  PARTS(i)  ),(USQ,USC  PPT(l)  ),(D,D  PARTS(l)) 
( lUD,IUO  PRT  ( l ) ) 


, 


• CALL  EN  NU 


!B< IONS  .NE.  0)  GO  TO  20 
X = C UcF  EN*EN( 1) 

^OV  OMGA 
= 1.0 
= -2 

= 1.0-Z**2 
•=  -l-l 
IUSQ-YSQ) I 
= Z*0  PARTS ( H-D 
= D PARTS! l)+Z*D 


z * 

C NU ( 1 ) 

U PARTS!  ii 

U PAR  TS ( 2 ) 

USQ 

P RT  ( 1) 

USQ 

PRT(2) 

D = 

- r " u* 

IUD 

P R.  i ( 1 ) 

IUD 

PRT( 2) 

PARTS ( 2 ) 
P AR  TS ( 2 ) 


uS3r  = USO*D 

ci.  rc  30 


. f 3 


usoo=  o.c 

iun=C  .0 
no  22  K * 1, 

/.-rnth  LN*f 0(K )/MRATIO<K) 

Z-C  fiU  ( Ki  /I'MEOA 
0=i.O-CPLX  1*7 
US3=U**2 

.07  f-  MP  = -X/(0*(l.Si»-YSC/ttf<ATinU)**2)) 


22 


oL T KM  p=  0*r  T £MP/  NR A T 1 0 < K ) 

I F C K ,tU.  c)  UOTKMPa-UDTFMP 
IwD  = IUC  +CPLX  !*UDTFMP 
usan  = L5or+j3a*t)TEMP 


3 J C-VTaM  = 2 . 0*  ( H f-H ) /'<  E 


Mil  * JSCO-LSQY SQ*0+CR  VTRM 

M22  « JS  CO-MS  CY$Q*D+CP.VTRM 

Vi 3 = USCO-NSCY  SQ*D+CRVTPM 

T A = NY  * IUD 

T a = LMYSC*0 

Mil  = MA-TS 

M12  * -TA-Tb 

TA  ■ MY*1UD 

Trf  = LNYSJ+O 

Ml 3 = +TA-TB 

*31  a -TA-TB 

TA  = L Y * IUD 

T3  * MAY  5.3*0 

*32  = +7A-TB 


*23  = 

-TA-TB 

n = i.i 

0/(1.0+MJ3> 

f'i30  * 

vii*D 

Kiin  = 

M31*D 

M2  3D  = 

M23*D 

M32D  = 

M32*D 

M2J32D 

= M32*M23D 

M1331D 

= M3l*M13D 

M2331D 

= M3 1* M2  3D 

M3213D 

= M32*M130 

L = 1 

XiML  ) 

= -M3 ID 

X<t4  ( L ) 

= -M13D 

X12 (L  ) 

= M32D 

X34  ( L ) 

a M2i0 

XiML  > 

= D 

X31(U 

= M2331D-M21 

^-fg% Sr-r~ 
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X42U  ) = M32130-M12 
X32IU  * M22~M2  3320 
X4l(U  = i • (HM 1 l-M  i 33  ID 
«FTUKN 
C 
C 

C COMPUTATION  OF  UIJANTITIES  WHICH  ARE  NOT  FUNCTIONS  OF  HEIGHT 
C OR  OF  THETA. 

F NT  P'1  I NIT  T 

OMEGA  = 2.0*Pt*FREQ*lOJ0.0 

WAVE  NP  = OMEGA/VEL  IT 

CoEF  cN  - COEFF  X*l .OF J6/UME 3A**2 

OV  OMGA  = l.O/OMEGA 

SIN  TIP  = SI NI CCDIP*DT R ) 

DIR  C S L - SIN  DIP*COS(AZiM*DTK) 

DIR  CS  M = SIN  riP*SINUZIM*DTR) 

OIK  CS  N - -COSICO  DIP*DTR) 

Y = -CCJtFF  Y*MAG  FL  C/OMEGA 
YSO  = Y**2 
LY  = DIR  CS  C*Y 
MY  = DIP  CS  M*Y 
NY  = DIR  CS  N*Y 
LSGYSO  = DIR  CS  L**2*YSQ 
MSOYSO  ^ DIR  CS  M**2#YSG 
NSOYSO  = DIR  CS  N**2*Y$w 
LMYSO  = CIR  CS  1*D1R  CS  M*Y$Q 

tNYSQ  = CIR  CS  L*DIR  CS  N*Y$Q 

MNYSQ  = CIR  CS  M*DIR  CS  N*YSU 

RETURN 

e 

END 


MMH  Mmmtrmtn'  r«  j ,t 


SlJMl  UT  IM 
FOK  MS 

Cnv.PUT«\l  I PN  r 


MT  c.X 


OF  COEFFICIFNTS  USED  IN  THE  DIFFERENTIAL  EQUATIONS 
I 0«  (Fri.  JJ/C.  THESE  Afifc  STORED  IN  COMMjN  AkF.A  'S 
AND  AKE  ANALOGOUS  TO  S MATRIX  ELEMENTS  UiVbN  CY 
BUOPEN  (19551.  DERIVATIVES  OF  THESE  CUfcbFICICNTS 
R T C*COS(  THET  A I ARE  ALSO  COMPUTED  IF  IJERIV 
IS  SET  NON-ZERO, 


COMMON/ TH;T  A C/1HETA 
Cr.MMLiN/C  CLM/C 
COMMON/?  CCM/S 

COMMON/ STORE  X/XIU  00U  ,X44(  ODD,  XI  2(001)  , X34(u0ii  , XI 41  00 1,  ♦ 

A X3U001)  ♦ X42100U  ♦ X32 t 00 1) » X4 1( 001) 

COMMON/?  MTX/AlitA2<itRll»Bi2»R22»Cli*C2lfC22»Dil»021»t)l2»U2<:t 
$ Cbi IOC,  DB22DC  , OCl 1 DC , 0C22  DC  , DDL  IOC,  DC2LDC  »0D12DC 

COMMON/  I OF RV  C/UERlV 
COM  PL  EX 

i THETA ♦ 

i C * s » c SO » c s * 

S L'SDC  » DC  SOC » 

1 XU  ,X44,Xl2,X34,X14,X31,X4c,X32,X41, 

i TEMP , TWOC  , 

% Ail, A22, 611, b 12,622, C 11, C 21, C22, Dll, 021,012 »D22, 

* 061 1DC,  Q8220C  , OCl  1 DC  » DC22  DC , DD1 1DC,  DD2  i£‘C » 0D12DC 

D/TA  RTC/57. 2957a/ 


CALL  T MTRX 
L = 1 

TEMP  = X41(L)+X4l(L) 

All  = TEMP+TEMP 
A 22  = 4.C 

TEMP  = S*X44(L)-C*X4l(L) 

Bll  = TFMP+TFMP 
R 12  = -X42(L)-X<i2lU 
TWOC  = C+C 
622  = -TWOC 

TEMP  = -S*XlllL)-C*X4i(L) 

Cii  = TEMP+TEMP 
C21  = Xal(L)  + X31(L) 

C 22  = -ThOC 

011  = CS*(Xii(L)-X44(L)  ) - ( 1 • 0-X14 (L))+CSy*(X4l(L)-X14lL)) 
l)2i  = -C*X3l(L)+S#X34(L) 

012  = S*X12(L)+C*X42(L) 

D 22  = -X32IU 

IF  (IOERIV  . EQ.  0)  RETURN 
TPKP  = CSDC+X44 (L ) -X41 ( L) 

DC  1 IOC  = TEMP+TEMP 
0622DC  = -2.0 

TEMP  = -CSDC*Xll(L)  -X41  ( I. ) 
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dfittSto&AM  a&y*  -.-i  iuiJKw.b 


DCllCC  = TfMP+TEMP 
DC220C  = -2.0 

DO l ICC  = OCSQC *(X11(L) -X44( L ) ) 
i *2.0  *f*(X^UL)-XHIU) 

1)02  IOC  * -X31(LHDSDC*X34(L) 
U0120C  - OSDC^Xitd  ) + X<t2(L) 

SETUP  N 


C 

C INITIALIZATION’  fC-R  GIVEN  VALUE  OF  THETA. 
CNTRV  IMT  S 


C = C COS ( ThtT  A/PT  0) 

CSQ  = C**2 
S = f SINITHtTA/RTO) 

CS  = C»S 
C 

If  { I DER  IV  .tO.  0»  RETURN 
USOC  = -C/S 

ocsrc  = s-csc/s 

RtTUPN 

C 

end 
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SUPRliUTlNP  01  FF  FO 
FOiv  MS 

0 I F F F R *:(  j T I A L 


UUATIONS  FOK  |k  + 1.0)/t  RHFH  E 
,'AIHX  AS  nEf  l\t .)  BY  DJDDEN. 

Lt.R  IV  ED  FW{)M  THE  l-IFFEPENTIAL 
GIVEN  3 Y SUDDEN  IN 
PP.  5it-337  I 1 S> i> J . 

IS  MATT  SO  THAT  THE 
EITHER  THE  MAIN  SET 
nllh  THE  COMPARISON 
FUR  THE  DERIVATIVES 
ALSO  USEu  IF  IDtRIV  IS 
VARIABLE  CALLED  *P*  IN 
(R+l.u)/C.  MULTIPLICATION  BY  -I  IS 
APPROPRIATE  TRANSFER  OF  VALUES  FROM 
COMMON  AREA  VARIABLES • 


R IS  THE  REFLECTION 
THE  EQUATIONS  ARE 
EQUATIONS  FOR  R 
OC.  ROY . SUC.  (LONDON! , Ac27, 
STOFASt  INTO  THE  ARRAY  CR  MTRX* 
EQUATIONS  MAY  BE  USfcJ  hITH 
OF  INTEGRATION  VAR  I AdLI:  S » OR 
SET,  X.  DIFFERENTIAL  EQUATIONS 
OF  (RM.OI/C  WFT  C=COS(THETAI  ARE 


SET  NON-ZERO , 
THIS  ROUTINE 


NOTE  THAT 
IS  ACTUALLY 
EFFECTED  BY 
•DcRIV*  TO 


THE 


C 

C 


COMMON/  INTO  / R ( 16)  ,UKDH{  161 
COMMON/ X INTGR/M8)  b ) 

C(  MMCN/S  MTX/An»A2  2,rUl»tU2»B.c2,Cii»C21»C22,Dil  ,D2i»Di2,D<.2, 
i CB  l i DC » OB  22 DC  » DC  1 1 DC  » DC  22  DC  » OD 1 1 DC  » DD21UC , UD 12DC 

COFMON/EXTPA//RU  ,R21,R12  ,R22,OKilOC,  DR21DC  , DR  1 2DC,  DP22DC, 
i uRl 1DH, DR  21DH  » DR 12UH » 0k22DH  » 

i ERLICH, DR4iCH,DRl2CH,DR22CH 

Common/ j pfr v c/ioeriv 

COMMQN/f  CCM/N 
C CMMON/f  VR  FL j/ I CVFLO 
COMPLEX 

$ f 1 1 » P.21 » R 12  » R22  » DR  1 1 DC  » DR  2 1DC  » DP  I2DC,DR22DC  , 

$ DR1 10H, DR  2 1 Dh  , DK  i 2 OH » DR  2 2 DH , 

!>  CRl 1C  h, DR  21C  H »DK 12CH , DR22CH » 

i ^li,A<:2,l311,oi2,B22,Cll,C21,C22,Dll,E21,D12,D22, 

$ CB  l ID C » 0322 DC » DC  1 1 DC  * DC 22  DC  , DDl  l DC, DD2 IDC , DD1 2DC * 

1 UUR11,D12R21,D21P  12,022P22, 

* FUR2c,K12R2i, 

i G 1 1 R 1 1 , G i 2R 2 i , Gel R 1 2 , 

$ C2iRli,  DUR  11, DliR 21, D22R 21,  D HR  12,D22R12  ,D2lR22, DlcP22 

DIMFNSICN  h MTRX ( lo ) , DtR I V(l6 ) 

EuUlVAi.  r. \C  F ( K 1 L , < MTRXU)  ),  l DR  11DH  ,DF  ft  IV  ( 1 ) i 


ENTRY  P CERIV 

CALL  XFFF  (P.,H  MTRX,N) 

I XF  LAG  = 0 
Id  DO  21  1*1,6 

I F ( A3  S ( H MTRX ( I 1 1 .GT.  1.0E4!  GU  TO  VO 
21  CONTINUE 


D11R1  1 

Dlo'G  1 
i)2  1 J 1 d 
DLt<kZ 
R11R22 


D 1 1*R1 1 
D12*P2  1 
I'21#Rl2 
Dd2*K 2 2 
P11*R2  2 


I 


* 

ri 
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P12R21  * P.L2+P21 

LikllOH  * AiUIRlUC  U<‘0URU+ni2Ril+D2iR12)*RU 

* ♦Fi2vR2l>C21*ki.2'»-D22*Ri2R21 

ORc  1DH  = ( B22+C  11+0  HR  1 l-*-l)i2R2i.+D22R2?  1*^2 1 

* +C2 l*p22+D2 1*R  L LR22 

f'R  12HH  = < Sil  +C^2  4-0  HR  1 1+021R12+022R22  )*R  12 
$ ♦ Bi2*tR2  2+Di2*RliR22 

Dl*  220  H = ( B22+C  22+012RcifD21Ri2+D22K22)*R22 

» +0 1 l*R  1.2R  21 

IP  UXFLAG  .NE.  0)  GO  TO  40 


IF  UOFRlV  .60.  01  GO  TO  22 


GIUU  1 
G12R21 
G21R12 


I.T11DC*R11 
ruU0C*R21 
Cu2iOC  *R 12 


D2IR1  I 

n 1 2 r 1 1 

D11R2I 
022R21 
DI1R12 
022R12 
0^1 R2  2 
Di2R22 


02l#Rll 
D12*Rll 
tUi*R2l 
D22*R2l 
011*R12 
D22*R12 
DU*R2 2 
DU*R22 


OR  1 1C H = ( CfilIDC+DCU0C+GiiRi.l4-Gl2R21  + G2iRl2)*Kll 
% +IB11+CU+0UR  li+D  UR  1UD12R21+D21P  L2)*D«UIDC 

$ + (0 12KI l + B1 2 + Ut2R 12 1 *DR2 1 DC 

* +(L»2lRll+C2i+022R2i)*OR120C 

DKilCH  = ( CB220ODC  HOC  PGUP  U+G12R21 ) *R2  UDD21DC*R  UR22 
$ +{D1IR2UD21R22I*0RU0C 

4 HB22+ClU-DliRU-MH2R2UDl2R21+D22R2c)*DR21DC 

i + lU22K21+C2H021Rii)*DR22DC 

DRI2CH  = ( LBU0C.+0C22DC+5URiU-G2iR  i2)*R12*-DD12DC*RUR22 
t *-(DU.R12*-DL2R22}*DRlLDC 

1 +(blI+C22+DURU+D2lRU4-D21R12+022F221*DRi2DC 

$ +(D22fU2*B12*0i2RlU*DR.220C 

DR22CH  = ( CB22DC+DC22DC+G12R21+G21R  I2)*R22*D0UDC*R12R21 
$ +<D12R22+DilM2)*DR2U>C 

i ♦ID2LR22+D1IK21J*0RI2DC 

5 ♦ (B22+C22+r)l2R2i.+D2iRl2  + D22P  22+022R22 ) +DR220C 


C 

C 


22  no  Zh  1=1, N, 2 

OR DH ( I ) = DfcRIVU+i> 
24  DROHt I+ll  = -DERIVI I ) 
RETURN 


ENTRY  X CERIV 
CALL  XFtF  (X,R 
IXFLAG  = I 
GO  TC  20 


MTRX  ,B) 


oor>or>oooo<-»ooooo 


SUBROUTINE  ROARS 
C FOR  MS 

C THIS  SUBROUTINE  COMPUTES  VAIUES  OF  VAR TABLES  WHICH  MAY  BE  USED  TO 

KlivM  THE  ELEMENT S UF  THE  R6AR  MATRIX,  whERt  RBAR 
REPRESENTS  REFLECTION  OF  AN  ELM  WAVE  FROM  THE  EARTH' 
SURFACE.  NAMELY,  kBARI l = DENl 1/ ( C*NUMil-DEN 1 1)  , 

OR  (i.O/RBARim.O)/C*NUMU/DENll, 

AND  RBAR2Z=DEN.:2/  ( C*NUM22-DFN22  ) , 

CR  1 1 .0/RSAR«:  2 + 1.0)  /C»NUM22/0EN22.  OEtslVATiVfS 
wf<T  CsCQS (THETA ) ARE  ALSO  COMPUTED  If  IbcRIV 
IS  SET  NGN-ZERU.  NOTE  THAT  THE 

LOU  AT  IONS  ARE  FURMUL  ATE.0  IN  SUCH  A WAY  THAT  A SMuUTH 
TRANSITION  IS  MADE  FROM  THE  'CURVED  EARTH*  FORM  JO 
THE  'FLAT  EARTH*  FURM.  SEE  ALSO  NOTfcS  IN  SUBROUTINE 
MUHNKL  REGARDING  DEFINITIONS  OF  HANKEL  FUNCTION 
PARAMETERS.  THE  VALUE  UF  EARTH'S  RADIUS  IS  SUCH  AS 
TO  MAKE  2.0/RE=i.l4E-4.  COMPUTATION  AT  THETA=90 
IS  NUT  EXCLUDED. 

CUMMUN/RTALT/  T AL  T , RAL  T 
CUMMUN/THETA  C/THETA 
COMMON/C  CCM/C 

COMMON/ R8  COM/NuMi.  I ,NUM22  * DENI  I ,DEN22,  ONMIOC , 0NM20C  , DON l DC,  DDN20C 
COMMON/ F1F2  C /F 1 , F2 ,HG , F1ZT , F 1ZR, F2 ZT , F2ZR ,GF 1Z T 
CCMMCN/FRC  COM/FREO 
COMMON/H  CLM/H 
C uMMl.iN/  D CCM/D 
COMMG N/GND  COM/ EP SRct , $ I GMA 
COMMON/ ICE RV  C/IDERIV 
COMPLEX 
$ LZ,PZ, 

% THETA, C, 

i NUMU  ,NUM22,DENil,DEN22, 

i CNM 1DC » DNM2DC  » DDNiDC  * DON 2 DC  , 

i FI,  F2  ,MG,HG  FCTR ♦ F UT , F I Z R,  F2ZT , F2ZR,  UF UT , GF  iZT , 

$ C SQ , S SO , 

$ NGSQ,1, 

s sqf  , 

i AfUZOC, 

S HI, HIP, Hi PP, 

$ H2,H2P,H2PP, 

$ E ,EO, EXPON, 

i KK, KX  , 

t Al,A2,A3,A4,Bi,B2,B3,3<», 

$ DAI  DC  ,DA.2DC , DA 3 DC , UA*tDC , DB1DC  »DB20C  »Db3DC  »DB4DC 

PEAL  KVRADT ,KVR AT T ,NOSQ ,NDSO 
DATA  RTC/57 .29578/ 

DATA  I/(C. 0,1.0)/ 

DATA  EPSLNC/B.834U4E-U/ 

DATA  VEL  LT/2  .99  T92BE5/ 

DATA  PI /3.  14le-»  iif 
DATA  RE/t36V.427/ 


(/) 


••one*: 


C = OCXS  ( The TA/RTD1 
<.$:j  s C**2 

J " 1 • v — Vrf 


Hflotif  GA  I.\  FOR  2=0 
SOR  = CCCRT(\GSW-SSQ) 

'juva  = i.o 

01  HU  = ( C - $QR  / N C-  SO  ) / 2 • 0 
NUf-U  = l.O/SQR 
OfcNzZ  = (C/SCR-i.0)/2.U 
ir  noe'iiv  .eo.  qj  go  to  it> 

DNMIOC  = 0.0 

nnaoc  = t i.o-c/tsop*NGsoa/2.o 

LNMZDC  = -C/$UR**3 

DO  N 2 DC  = -<C**2/SQR**3+1.G/$QR j/2.0 


(.ML  MO 
9 j.  = C * 
Pc  * c* 
03  = C* 
94  = C* 
A 1 a N!U 
A2  * NU 
A3  » NU 
A4  * NU 
IF  noe 
02  DC  = 
HiPP  = 
H2PP  = 
06 l DC  * 
ObcOC  = 
Ob  3 DC  = 
CX40C  = 
OAIOC  = 
DA  2 DC  = 
DA  2 DC.  a 
DA 4 DC  = 
HG  FCTR 


VPATT*{CSQ*c'mo) 

MDhNM  ( 2thl,H2»HlP  ,H2P»eOJ 
C*‘-’lMKi<*HlPfKA*Hl  )/NOSQ 
C*H2+  ( KK*H2P*K.X*H2 i/NOSQ 
C*r 1+KK*H1P 
C*H2+KK*H2P 
NUMll*3l~2.0*0eNli*Hi 
NUN  11*82-2. 0*DENU*H2 
NUM£c*b3-2.0*De\22*Hi 
NUV2*fi4-2.0*DEN22*h2 
DFMV  .60.  0)  GO  TO  20 
= KVRATT*2.0*C. 

= - Z*H 1 
= -Z*H2 

= eU(C*HlP+(KK*HiPP+KX*HlP)/NOSQ)*DZDC 
= FcMC*H2P  + ( KX*rtZPPfKX*H2P )/NOSQ)*DZDC 
= FU(C*HIP«-KK*H1PP)*UZDC 
a 62* (C  *H2P  +KK*H2PP ) *DZDC 

= NUMU*DH10C*DNMlDC*lU-2.C*(  DEN  U*H iP*Dt  DC+DDN  IDC*H1 ) 
= NUMll*0B2DChJNMlDC*92-2.0*( DEN 1 1*H 2 P*Dz DC  + DDN 1DC*H2 I 
a \UM22*D8j0C+DNM2DC*83-2.0*(  CCN22*h1P*D4DC  + DDN20C*H1  ) 
a NUN«i2*DB‘t0C<-UNM2UC*94-2.0>M  DtN22*H2P*DZDC  + 0DN20C*H2) 
TP  = ( A2  *H 1-A1 *HZ J / ( -KK  ) 


HEIGHT  GAINS  FOR  ELEVATED  TRANSMITTER  AND  ELFVATEO  RECEIVER 
2 = KVP.ATT*{CSQ+EMZT) 

CALL  MDHNKUZ,Hl,H2,HtP,H2P,E2j 
EXPON  = CEXP(EZ-EO) 

Hi  = HI / EX PON 
t-2  = H2<  EXPON 
HiP=H  1P/EXP0N 
H2P=H2P*EXP0N 

FiZT  = (A2*Hi-Al*H2)/(-KK)*fcXPUTALT-D)/RE) 

&2ZT  = (A4*H1-A3*H2)*(-SQK/KK) 

PA-U  LP  THE  EQUATION  OF  THE  DERIVATIVE  OF  HEIGHT  GAIN  FOR 
fPERAL  AT  HEIGHT  Z 


gr 


I 


Df-  i Z1  * (A2*HlP-Ai*H2P)/(-KK)*EXP( ( TALT-HI/RE) 

C Tr,r  PER  l VA  T I V E OF  THF  HEIGHT  GAIN  FOR  FPEPL  AT  HEIGHT  l 

C FXftJl  ISIVE  OF  THE  Dll  TERM 

Or  i/T  2 -1*1  AVRKi:T*0FlZT+ARb*FiZT/2  . 0) 

C 

L = K VRA  n*(CSU+rM2R) 

CALL  MDMNkL(Z»H1*H2»HIP»H2P*EZ) 
fcXPON  * CFXPi EZ“EO) 

HI  2 Hl/EXPON 
H2  2 H2*EXPGN  ' 

F12°  2 {A2*Hl-Ai*H2)/(.-KKl*EXPH«ALT-D)/RF) 

F2ZR  2 <A4*H1-A3*H2)*(-SQR/KK1 

C 

C HEIGHT  CAINS  AT  Z*0 

20  Z 2 K VRATT*(CSG+EMD) 

CALL  KOHNKt  (ZtHl,H2.HlP,H2P»6) 

EXPvIN  2 CFXPIE-EO) 

Hi  2 Hl/EXPON 
Hi  = H2*FXPUN 
HIP  2 HiF/fcXPON 
HiP  2 H2F*EXP0N 
C 

Bl  2 C*Hl*(KK*rtlP+KX*Hl  I/NDSii 

fi4  2 C*F2+(KK*H2P*KX*H2)/N0SG 

B3  2 C<-Hl  + KK*H1P 

B4  2 C*H2+KK*H2P 

CtNU  2 A2*rfli“A  l*B2 

DEN22  2 A4*B3**A.a*84 

NUMll  = 2.0*1 A2*HI-A1*H2) 

NUM22  2 2.0*< A4*Hl-A3*H2) 

IF  ( I DEI*  TV  .EQ.  01  RETURN 
HIP  P 2 -Z*H1 
H2PP  2 -Z*82 

DB1DC  2 EU(C*HiP*(KK*HlPP*KX*HlP)/NDSQ»*D2DC 

06 2 DC  2 H2  + (C*HiP  + (KK*H2PP*-KX*H2P)/NDSQ)*DZDC 

DB3DC  2 K + IC*H1P+KK*HIPPI*DZ0C 

D64DC  2 F2MC*H2P*KK*H2PP)*DZDC 

DDN1DC  2 A2*L'B1CC*I)A2DC*B1-A1*DB2DC-DA1DC*32 

DDN2DC  2 A4*0G3DC+UA4Pv*B3-A3*DB4DC-DA3DC*84 

DNH 1DC  2 2.0*(A2*HiP*OZDC*DA2DC*Hl-Al*H2P*DZDC-L>AlDC*H2l 

DNM2DC  2 2.0*(A4*H1P*DZDC+DA 4DC *H1- A3 *H2P *DZDC-DA3DC*H2 ) 

C 

C FOLLOWING  FCU*  STATEMENTS  NEEDED  UNLY  FOR  COMPUTING  EXCITATION 
C FACTORS. 

C.  HEIGHT  GAIN  FOR  FPEKL  AT  Z=D 
FI  = (A2*HI-A1*H2 )/ (-KK) 

C HEIGHT  GAIN  FOR  FPERP  AT  Z=D 
F2  = ( A 4*H 1-A  3*H2 ) * 1 “SQR/KK ) 

C HEIGHT  GAIN  FOR  FPFRL  AT  Z=0  DIVIDED  BY 

C HEIGHT  GAIN  FOR  FPERL  AT  Z=D 

HG  2 EXP( -D/RE ) *HG  FCTR/F1 
RETURN 

C 


I 

i 


i 


% 

| 


vs 


I 


& 


I 

I 

I 

i 

i 


J 


Vi 

J 

■V 


i i 
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5 


I 

I 


*; 


$ 


I 

I 


I 


f 

C r.KPUTAI  !('f:  nh  ICH  IS  INDEPENDENT  OF  THETA. 
P.\TWV  1N*T  ii\ 

d.vga  = <?.o*p  i*pae  j*uuu.o 
WA vf  Nf  = IMEGA/VFL  LT 
N’C, S v)  = EFSKEL-I  <‘SIG«A/UM6uA/fcPSLNO 
r. 

AM,  = i’.C/UAVF  NR*RS» 

A VP  KD  T = EXP<  ALGGT  ARGI/S.OJ 
• KVFACT  = l.O/AVFKOT 
KVRATT  = l .0/AVRKUT**2 
KK  = I*AVI>*GT 
XX  = I/UAVE  NR*RE) 

C 

E*Zk  * 2.0*(KAtT-H)/RE 
EMZT  = *’  .C*  ( T ALT-H)  /&  F 

C 

EK  = 2.CMD-HI/RE 
\fStj  = i.C  + EMD 
EN'J  = -2  .0*H/Re 
NOSQ  = i.0-2.0*H/RE 
RETURN 

r 

END 


'l  v 


l 

’V 


SUBRtUTINE  MDHNKL  ( Z, H l , He  ,H1  P , H2 P ♦ E) 

FOR  MS 

THIS  SUBROUTINE  COMPUTFS  VALUES  UF  VARIABLES  WHICH  MAY  BE  COMBINED 
TO  FORM  MODIFIED  HANKtl  FUNCTIONS  AS  CcSCRIBEO 
IN  ‘TABLE*  OF  THE  MUD  I FIFO  HANKEL  FUNCTIONS  OF  ORDER 
ONE  THIRD  AND  LF  THEIR  DERIVATIVES’*  BY  THE  STAFF  OF 

the  computation  laboratory*  harvard  university 

PRESS,  1^5.  THE  NOTATION  IS  SUCH  ThAT  THE 
ACTUAL  Hl=Hl*EXP(-E),  THE  ACTUAL  H2=Hc*fcXP{ £ J . 

ACTUAL  DERIVATIVES  WRT  ARGUMENT,  Z,  ARE  HlP*EXPt-L) 

AND  H2P*EXPIE1. 

COM  PL  FX  Z,Fi1,H2,H1P,H2P,E, 
i R * 

$ I, PARTS, 

$ ZPC'WcRjTERM, 

$ SUM A, SUMB ,SUMC , SUMO , 

i MZ3, 

$ f ,C,FP,GP,T ,TP, 

* IPI I6T, I2THRD, IPI5I2, 

$ SUM1, SUM 2 »*UM IP ,SUM2P, 

* RTZ,QyRZ,0VRM^i,Z3H,M3H0VZ, IRTZ,MIZ3H,MiJVZ3, 

$ C'SUM,  ESUM  , OSuMP » ESUMP  , 

l EDIFF 

DIMENSION  A N2)  ,6(22)  ,C  AP  { 1<»)  , PART  I 2 ) 

EQUIVALENCE  ( PAF T < i ) , PART S ) 

DATA  A0/C.9;l04Jt/l691/ 

TATA  80/C. 67629672314/ 

DATA  CAP/ 

$ I.  041666666666670-01 , 8 • 33 303 <*72 2 222220-02,  1.2822o5745363270-0l  , 

$ 2.  916 49 026 4641 40 D- 01, 6.81 62 72674 43 75 8D -01, 3. 3214 06 2818 62 77D  00,  . 

i 1. 499576298686260  01,7.692301301156700  01 , 4. 744^15388660 OOD  02, 

S 6. 20 V49 L09 1000000  Oj , 2 . 408654960 OOOOOD  04, l . 969231 200000000  05, 

i 1. 79 l502u0O0G000D  Oo , 1 .7484377C0C0L00D  07/ 

DATA  I/(C.C,1.0)/ 

DATA  RCTTi/l, 7320508075oo68/ 

DATA  ALPFA/U. 853067218838951/ 

DATA  PI/2.141 59*6 53 589 79/ 

DATA  I1ST/1/ 

DATA  IFIRST/1/ 


ZMAG=  CAC  SI  L) 

If  (ZMAC-  .GT.  4.2)  GO  TO  50 

MACLAURIN’S  SFKlES  FORM  FOR  MAGNITUDEIZ)  NOT  GREATER  THAN  4.2 
IT  NIST  ,EQ.  0)  GO  TO  12 
All)  - 1. 0/6.0 
BI1)  = 2.0/24.0 
m.  11  M-2 , t-Z 

At  M)  = A (M-n*(3.0*M-2.v;)  /(  I 3.0*M)*(D.D*M-1.0)*(  3.  J*M-2.0)  ) 
8 I M ) = 3(M-i)*(  3,0*M-l.Q)/(l3.0*M4l.C)*(3.Q*M)*(i.J*M-i.0)) 
11  CONTINUE 


IiST  = C 
Sort A = 1.0 
SU«o  = 1.0 
Sl»"C  = «'.0 
SuMO  = 0.0 
zpowfs  = i.o 
MZi  = -Z**3 
Dl.'  lb  >'  = lt*d 
ZPGwn<  = ZPUU  ER*MZi 
T f KM  = A(*)*ZPO*ER 
SU*A  = SLMA+T  ER  W 
SUMC  = SLWC+M*TFRM 
PARTS  = T E PM 

If  (AHStPAPT(l)  )tA3S(PAKT(2)l  .LT.  1.0F-i0»  GOTO  to 

TERM  = 3 (M ) *Z  POWER 

SUMO  = SLNE+TEPM 

SUV.)  = SlMi;+M*Tfc«M 

PARTS'*  TrPM 

ir  {AKsiPAKUin+AGiiPrtM  (,u i .lt.  i.oc-io)  on  to  io 

15  CONTI NUE 

16  F - A 0*SU*'A 

G = Z*BO*SuMR 
FP  = 3 • C*AO*SUMC/ Z 
GP  = (3.G*bUMO+SUM3)*BO 
T * l *( G-P -F) /ROOT  3 
TP  = Ix.(GP-PP-FP)/R;)JT^ 

HI  = G*T 
HIP  = GP+TP 
H2  = G-T 
H2P  = GP-TP 
E = 0.0 
RETURN 
C 

C ASYMPTOTIC  SERIES  FOR  *A3N I TUOE ( Z ) GREATER  THAN  V.2 

50  IF  II F I R S T .EO.  0)  GO  TO  51 
I P I It  T = 16.0+P  l* I / Ia. 0 
I2THI-T)  = 1*2. 0/3.0 

I PI  51 2 = 5.0* PI *1/12.0 
ALPHSW  = ALPHA*  *2 
IFIRST  = 0 

51  KTZ  = CSCRTUI 
OVPZ  = 1.0 /Z 
nVRM<tZ  = -0.2  3*Cv  RZ 
Z3H  = Z*RTZ 

N3H0V  L = - 1 • 5*0 VR  Z 
IHTZ  = I *n  TZ 
M1/3H  = -I*Z3H 
MIOVt i = -GVRZ*  *3 
F = - I 2Tf-RD*Z3H  + l PI  512 
R = Z SyPT ( ALPrtSO/ R T Z ) 

C 

osum  = c.o  . 

OSUMP  = c.o 


*■»*»  A .♦:>  ^ fUStil I 


F SUM  * 0.0 

ESUMP  = 0.0 

ZPUWFR  = 1.0 

0!J  M = Z,U,2 

ZPbtfER  = ZPO!aER*M  10VZ3 

TFRM  s C AP { M-l ) *Z POWER 

USUM  = C SUN+TFRM 

USUMP  * CSUMP+(M-1)*TFRM 

TFFM  = CAP(  M) *Z POWER 

LSUH  = ESUM+TERM 

F.SUMP  = FSUMP+M*T  ERM 

PARTS  - TFkM 

If  (A  BS ( PARTI  1 ) )♦  AB  S( PART ( 2)  ) .LT. 

52  CONTINUE 

53  CONTINUE 

USUM  = MlZ3H*0SUM 

USUMP  = M Z3H*M3H0VZ*0SUMP 

FSUMP  * P3hCVZ*ESUMP 

SUM  I = l .O-OSUM+feSUM 

SUM 2 = 1.0+USUM+FSUM 

SUM IP  = -OSUMP+ ESUMP 

SUM2P  * CSUMP+E  SUMP 

HI  = SUM  1 
H*  = SUM? 

HIP  * (CVRMA-Z  + IkTZ)  *$UMI+$UMIP 
H2P  = (CVRM4Z-IRTZ) *SUM2+SUM2P 
PARTS  = Z 

IP  (PART  ( 1 } .GT.  0.0)  GO  TO  70 

If  ( P AkT (2 ) .GT.  0.0)  GO  TO  bi 
EUIFf-  * CFXP(  E + E**  IP  I loT  ) 

HI  = HI +FOI FF*H2 
HIP  = HlF+CDrFF*H2P 
G(J  TC  7 0 

63  FOIFF  * CEXPi -E-F+I  PI  UT  ) 

H2  = H2+-EDIFF  *H1 
H2P  = H/P+EDl FF*HiP 

70  Hi  * F *H  1 
H2  •=  R*H2 
HIP  = R *Hl P 
il2P  = P*P2P 
P FT  URN 

rND 
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sue»outine  fs  intg 

C FUk  MS 

C THIS  SUNROlTINE  PERFORMS  an  I NT  EGRAT I UN  OF  THE  DIFFERENTIAL 

EQUATIONS  FOi\  THE  IONOSPHERE  REFLECTION  UTR1X 
THROUGH  4 FRtL  SPACE  REGION  OVER  A CURVED  tARTH. 

THE  INTEGRATION  MAY  OF  PERFORM?  p IN  EITHER  A POSITIVE 
OR  NEGATIVE  HEIGHT  DIRECT  I ON » BUT  IN  THIS  PROGRAM  THE 
INTEGRATION  IS  ALWAYS  UPWARD.  ThF  INTEGRATION  VARIABLES 
ARE  THE  ELEMENTS  OF  THE  MATRIX  fM+l.v)/C  whERE  k IS  THE 
REFLECTION  MATRIX  DESCRIBED  BY  PUDUEN.  THE  SOLUTION 
IS  BASED  ON  BUDOEN,  RADIO  wAVES  IN  THE  luNGSPHERE, 

IN  PARTICULAR  THE  MATERIAL  ON  PF  . il 8, 327-3c9, 

3io-338,ANn  343-343.  IF  IDERIV 

IS  SFT  NON-ZLPO,  THE  DERIVATIVES  OF  (RU.OI/C  ELEMENTS 
WRT  C =COS  ( THE  TA ) ARE  ALSO  INTEGRATION  VARIABLES. 
COMPUTATION  AT  THETA=90  IS  NOT  EXCLUDED.  ALSO, 

THE  EQUATIONS  AkE  FORMULATED  IN  SUCH  A w AY  THAT  A 
SMOOTH  TRANSITION  IS  MADE  FROM  THE  ‘CURVED  EARTH  * FURM 
TG  THE  'FLAT  FAkTH*  F OR M FOR  APPROPRIATE  VALUES  OF 
THETA.  THE  INITIAL  AND  FINAL  VALUES  OF 
THE  INTEGRATION  VARIABLES  ARE  STORED  IN  THE  COMMON 
AREA  MNTEGR'. 


COMMON/ X PR NT/XPRINT 

COMMON/ I NTEGR/R 1 1 »R21 , kic ,R22 » DRl IDC, DR2i DC » DRltOC, DR22DC 

COMMON/THETA  C/THETA 

CCMMON/C  C CM/ C 

CCMMON/h  CCM/H 

COMMGN/RN/WAVE  NR 

COMMON/  I DERV  C/ IDERIV 

COMPLEX  THE  TA  ,C  » 

* RU.R2i»«12,r<22, 

* C Rl IDC , DR21DC  » HP  1 cDC  » DR22  DC  » 

i I ,KK  , NX  f C SQ » 

* EXPUN, 

$ Z,lU,h2,HlP,H2P,EO,E, 

$ HiPP, H2PP ,DZ  DC , 

i All  ,*412,A21»A22» 

$ DAUOC  , DA  12 DC  , DA 2 1 DC  , DA 22  DC  , 

S Fi,Gl ,Ai,Bl,F2,G2,A2,B2, 

$ OFi DC ,DG1DC i DAI  DC » DBiOC » D F2DC»DG2DC  » DA2DC , DB2DC , 

t EPI , EP2 , EYl i EY2  , 

$ DEP  IDC  , DEP2DC  , OfcYi  DC  , D E Y 2 DC  * 

$ DEN  , V i , V2  , 

* ODEN DC » DV IDC , DV2DC 
RFAL  KVRATT,NOSQ,NZSO 
INTEGER  XPRINT 

DATA  I/(C.C,1.0)/ 

DATA  RE/fc3t>>. 42  7/ 

DATA  RT  C/57 .29578/ 

C 

C 

IF  (XPRINT  .NE.  0)  PRINT  1G0 ,R 11 ,R 2 1, R 12 , R22 
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100  FORMAT  ( *0*  »*  AT  HT=Z0  R «•  »4(2X,2F12.5H 
IF  UDER1V  .NE.  0 • AND.  XPKlNT  .Nfc.  01 

, $ PRINT  l0l»0niDCtDR2i.DC,DfU2DCt0R22DC 

101  MkMAT  I *0  • » • D£hl  VS  = • » 4X*4(  2X,  1P2S  U . 311 
C 

C = C COS (ThE I A/ RT  D) 

CSQ  = C**2 

f.UMPUT  AT  1 ON  OF  HE  1 0HT-G4  I N COEFFICIENTS  F,6,A,6  FCR  I«U  CONDITIONS 
ON  THE  UP GOING  wAVE  AT  HEIGHT=ZO»  NAMELY,  Ell*i,LY*0 
AND  E 11-0, tY*l.  EACH  OF  THE  COEFFICIENTS  F,G,A,B  IS 

divided  by  c*cos( thetai • 

Z = K VRATT*(C  SQ+fcMO ) 

CALI  MDHNKL  I Z , HI ,H2 , HI P ,H2P , EU 1 
AH  « Hi 
Al2  = H2 

AZl  * C*Fl+(KK*hlP4-KX*Hl)/N0Sg 
A22  = C*F2*(RK*H2P*KX*H21 /NOSQ 
DEN  = Al  l*A22**A2i*A12 
FI  * (Rll*A22-2.G*AUl/DkN 
G1  = I2.C*All-Rll*A2l)/DtN 
F*.  = R12+A22/DEN 
G2  * -R12*A21/0EN 

IF  ( 1DEPIV  .EQ.  0)  GO  TO  c!> 

O/OC  * KVRATT *2  .0*C 
HiPP  * -Z*H1 
H2PP  * -Z*H2 
DA11DC  = H lP'f'DZ  DC 
0AI2DC  = H2P*DZDC 

DA21DC  = HU(C*H1P+(KK*H1PP+KX*HIP)/N0SQ)  *0200 
0A22UC  = H2+<C*H2P+(KK*H2PP+KX*H2PJ/N0SQ1*0ZDC 
DCENDC  = Ali*0At20C+r;Al  lDC*A22“Azl*DA12DC“DA2iDC*Ai2 
DF  IOC  = (Rii*DA42OCFDRUOC*A22-2.0*CA12OCl/DEN-Fi*QOENDC/OEN 
DG10C  = (2.0*0A  11 OC-P.  1 l*DA2 1DC-DR  1 1DC*A21)  /D=N-Gi*DDENOC/OEN 
DF2DC  * IR  12*DA<:ZDC+DR12DC*A22  1 /0EN-F2*0Df NDC/DEN 
UG2DC  = (-R 12*0 A 2 10C-DR lcDC*A21 l/DE N-G2*D0ENDC/DEN 
C 

All  = HI 
A 12  = H2 

A2 1 * C*F1+KK*H1P 
A 22  = C*F2+KK*H2P 
DEN  = A 1 i*  A22“A  cl*A  12 
Al  = R2l*A22/DEN 
B1  = -R2l*A21/DEN 
A2  = IR22 *A22 -2. 0*A 121/DEN 
32  = (2.C*Ali-R22*A2U/UEN 
C 

IF  ( IDERIV  .EQ.  0)  GO  TO  30 
DA  lire  = H1P+DZ0C 
DA  i 20 C = H2P*0ZDC 
DA  2 1 0 C = Hi  + lC*HiP4-KK*HlPP)*UZf)L 
DA22CC  * H2*<C*H2P+KK*H2PP)*UZDC 


ODtNDC  = A 1 l*OA  22  DC  +DA  ii.l)C*A22-A21*DA  12DC-DA2  lLC*Ai2 

OA1DC  = <R2L’f‘DA22DCfD«iiOG*A22i/DEN-Al*DOtNOC/DtN 

I'fclOC  = (-R4l*0At.lDC-DKilDC*A2n/D£N-8i*DrENDC/06N 

DA  2PC  - tK2t*OAZZCC+Ofa<:Ui.*A2<;-2.0*OA  I2DC  i /D£N**AZ*O0FNDC/0EN 

PC* DC  * <2.U*DAaDC-R2Z*CA210C-DKZ2nC*A2n/0£N»b2*D0fcNDC/DEN 

CCMPUT AT  1 ON  OF  UPGCING  FIELDS  Ell  AND  EY  AT  HE IGHT*ZZ  FOR  THE  ThO 
CONDITIONS  DESCRIBED  AbOVE. 

3u  Z = H VRATT*(CSO+cMZ J 

CALL  MiHNKL  { Z, HI  »H2, Hi P , H2P , 6 ) 

FXPON  « CFXPI E-fcOi 
HI  * HI /FXPON 
HZ  = H2*EXPON 
HIP  = H1F/EXPUN 
HZP  * H2f*EXPON 

AZ1  =■  C *F l + ( KK*HlP+KX*rt i ) /NZ  SC 
A^.2  = C *F2  + <KK**?2PFKA*H4)/NZS0 
FP1  = (Fl*AzH-Gl*AZ«J/2.0 
EPZ  = (F2*A2U-Gc*A?Z)/2.0 

IF  t IDEA  IV  .EU.  01  GO  TO 
HIPP  = -Z*hl 
H2PP  * -Z*H2 

lAZirC  = Hl*(C*hiP+<KK*HlPP«-KX*HIP) /NZSQ)*D2DC 
CA22DC  = H2+(C*H2P*lKK*HzPP+KX*H2P)/NZSQ)*OZrC 
DFPiCC  « ( Fl*DA21DC+nFiDC*A2H’Gi*DA2cDC*-DMDC*A24)/2.0 
DEP2DC  = ( F2*DA«;iDC*0F 20C*A21+32*DA22DC+DG2DC*A22) /2. 0 

35  A21  = C*FI+KK*H1P 
A22  = C*F2+KK*H2P 
FY1  * IAl*A2i+Bl*A22l/Z.U 
EY2  = <A2*A21+B2*A22)/2.0 

U { I DfcP  IV  .EQ.  J)  GO  TO  hQ 
DA21DC  = HH-(C*HlP*Ki<*Hn'P>*DZDC 
DA 2 2D C - H2-MC*H2P*KK#H2PP)*DZDC 

DEYIDC  = Ul*DA21DC  + OA10C*A2l  + Bi*DA2<.OC+DBltC*A2Z)/2.0 
L*EY2DC  = (A2*DAZi0C  + 0A2DC*A2H-B2*DA22DC+DB2rC*A22)/2.0 

COMPUTATION  OF  REFLECTION  COEFFICIENTS  AT  HEI3HT-ZZ. 

AO  VI  - Fi$Hi+Gl*H2 
V2  * F2*F1+G2*H2 
DEN  = EP1*EY2-EP2*EY1 
R 1 1 = ( Vl*EYZ-V2*EYU/DfcN 
Ki2  = { V2*EPi-Vl*EP2)/DEN 

IF  UDERIV  .EQ.  0)  GO  TO  *5 

DV1DC  - ( F i^H lP*o  i*H2P  I *0200+ OF  1DC*H1+DGIDC*H2 
DV20C  = <f  2*H!  P+G2*H2P  )*DZ0C*-DF2nC*HH-DG2DC*H2 
DPFNDC  = EPl*0EY2DC+DEP10C*EY2-EP2*DEYi0C-DEP2DC*EU 
DKUDC  = t Vl*0EYZDC+DVlDC*EY2-V2*DbYlUL-uv<'uC*tYU/ucN 
t -R1 1*DDEN  CC/DEN 
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0*UlC  s ( V2*0EPi0CtDV2DC*ePl-V-l*0tPZDC-DViDC*tP2i/D£N 
i -R12*C0ENCC/UfcN 

C 

'*5  Vi  - A l >»F-  i + >Ji*H2 
V2  = A2*FUl32*Fl2 
K cl  - (Vl*EVt-V2*FYl)/0fcK 
R 22  ~ ( V2*EPi-Vl*EP2J/0fcN 
C 

If  UCEfc  IV  .KQ.  01  GC  TC  J»0 

I V 1 :X  « (A  i*H  iP*fl  i*HcPi  *L2UC  FDA  luC*Hi+UBlPC *M2 
nv2f)C  = (A2*HlP+B2*H2PJ*Dz0CFDA2DC*Hi+DB2DC*H2 
DP2l*-C  = ( Vl*0c  V20C+OViDC*EYi-V2*Dfc  YlDC-GV20C*fc Y l i/f)UN 
$ -R<c  l*COEM  CC/DEN 

[)R22f  C = ( V2*0£  PI  DC  +0V2DC*EP i- Vl*DF  P20C-DV  if)C*f  PZ  )/Dt  N 

* -R22*DD£NDC/DtN 
C 

i>w  IF  I X PH  I M .NE  • J)  PRINT  aJO  »Rii  »R2  1,R  12t  P22 
VDO  FOR**  A T { •()*.,  • AT  HT  = ZZ  R •• • , 41  2X » 2F  1 2.  » ) ) 

IF  IIPEMV  .NE.  J .AND.  XPKINT  .NE.  0) 

* PRINT  pCitORiiDC. DR21DC  f DKi^UCt  UR22 DC 
b'j  1 FfftMAT  ( *0* »'  DtP  I VS  = * f 4X,4(  2X,  IP2EU.5)  ) 

RETURN 

C 

C 

C COMPUTATION  »HICH  IS  INDEPENDENT  OF  TH  FT  A . THE  INTEGRATION  will 
C PROCEED  FROM  HfclGHT  ZO  TC  HEIGHT  U »hCN  FSINTG  IS 

C CALLED. 

ENTRY  INIT  FSiZO.ZZ) 

APG  = 2.G/UAVE  NR*  RE  I 
AVRKCT  = E X P l A L 00 ( A RG I / 3 • 0 i 
NVPATT  = 1 .0/ A VRNOT  **2 
KK  * I *A  VP ROT 
KX  = I / (RAVE  Nk*R E ) 

C 

EMC  = 2.L*(Z0-H)/RE 
NuSQ  = l.ONEMO 
£R‘Z  = 2.C*(Z4-H|/RE 
N'ZSQ  = i.O+EMZ 
* RETURN 

C 

FND 
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c 
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SUBROUTINE  FCT  VAL  ( THL  TAZ  »P ) 

SOUTINr'M***  COMPUTING  F FUNCTION  VALUFS  AT  MfcSH  POINTS*  CALLED  ON 
PKtNC  I PALLY  bY  -SUBROUTINES  FZEPOS  A NO  Nu  MESH.  THIS 
IS  TMC  MODIFIED  F FUNCTION  WHICH  HAS  NO  POLES  AND  WHICH 
HAS  NL  ZEROS  AT  TH£TA«90. 

C(  MMGN/iCFRV  C/10ER1V 
CoMMtiN/  I XACT  C/ I EXACT 
CC.NMr N/ THETA  C/ THETA 
COMMON/ INTFGP/Rtl »R2l»Ki2.R22 
COMMC  N/  PB  CuM/NUMil ,NUM22#UENli»DfcNA2 
COMPLEX  THETAZt  H» 
i THETA » 

$ P l 1 » R21 »R 12» R22 » 

$ NUMlL«NUM22tOENlltOEU22 


THETA  = fhETAZ 
IDE  PI V*0 

IK  IE  XACT  . Eu.  0)  GO  TO  11 
CALL  INTFG 
CALL  PS  INTG 
Gl»  TO  U 

11  CALL  LAC PNG 

12  CALL  PB APS 

F * ( NUMl-Ril*i>tNlU*(NUM22-R22*DFN22) 
$ -R  12*R2 1*  DGNi 1#DEN22 

RETURN 

END 


%‘-^5*I 


SUBROUt  lNfc  F OFLfT  ( THETAZ,F ,OFDT) 

COR  VS 

ROUTINE  FOP  COMPUTING  F FUNCTION  VALUES  AND  THEIR  DERIVATIVES 

WRT  THETA  AT  ARBITRARY  VALUES  OF  THETA.  CALLED  ON 
PRINCIPALLY  BY  SUBROUTINES  NO  MESH  AND  FINAL.  THIS 
IS  THE  MODIFIED  F FUNCTION  WHICH  HAS  NO  POLES  AND  Ml 
HAS  NO  ZEROS  AT  Th£TA=90* 


CLMMON/IDERV  C/IOtRlV 
COMMON/ I >ACT  C/ I EXACT 
COMMGN/KXACT  C/  KEXACT 
COMMON/THETA  C/THETA 
COMMON/ ! NTEGR/R  11»R2a,R12»R22, 


OR 1 IOC » OR 2 IOC  * DR  12DC  »DR22DC 


COMMON/ R8  COM/NUMll ,NUM22  »DEN 1 a »DEN22 » 


COMPLEX 


CNMIDCt  DNM20C  » 0DN1DC»DDN2DC 


DATA  RTC/57 .295 


THETAZ, F , DFDT  , 

THETA, 

DFUC , S, 

Rll »R21 ,R 12 ,R22, 

OR1 IOC, DR2IOC , CR12DC , DR22DC , 
NUMI1 ,NUM22 , DENI 1 , DEN 22 t 
DNMlDt,DNM2DC»DDNlDC,DDN2DC, 
FAC  TR 1, FACT P 2 , Kl2R2l  ,Ui\ilDN2 , 
DFDRl I, DFDR2 1 » OFDR 12, DFDR  22, 
DFONM 1 , DF  DNM2 , OFODNi , DFD0N2 


THETA  * THETAZ 
IDERI V*1 
IF  (KEXACT  .£< 
CALL  INTEG 
CALL  FS  INTG 
GO  TO  12 
CALL  LAG  DER 


.AND.  I EXACT 


30  TO  II 


12  CALL  RBARS 


FAC  TR  1 = NUMU-Ril*QENll 
FACTR  2 = NUM22-K22*DEN22 
R12R21  = R12*R21 
DM  ON  2 = DENI  l*DEN22 
F * FACTP1*FACTR2-R12R21*DN1DN2 


DFJNM 1 
DFuNMZ 
DFDDNi 
DF0DN2 
DFORl  l 
DF0R2 1 
DFORl 2 
DFDR2  2 


FACTR2 

FACTR1 

-PU  *FACTR2-R12R21*0EN22 

-R22*FACTRI-R12R21*DEN11 

~DENU*FACTR2 

-R12*DN10N2 

-R21*DN1DN2 

-t)EN22*FACTRl 
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OOC  = nff'k  ii*uhi  U'C<-OFDR*  IDC 

, +i)pnRU*ORUi)C4-UFOH*f21«'DI<i;2DC 

♦ OFDWMi*ONMl  DC  ♦,Df,DNM^*DNM2DC 
, ti'piK.»*\Si*nn>H,ju^uFD0Ni*00N2UC 

> * l. SI  Mi  THETA/RIO)' 

rn;i.  •-  -<*nruc/RTO 

* I:  T (J|.  M 


o o < » o onoo 


SUOfilUJTIKf  LAG*NG 
C FDA  NS 

C ROUTINE  f IIP  PC»rMKlNG  LAGKANGE  INTERPOLATION  OF  kEFLECTIUN 
C IdEFFICleNTS  !h  ThE  CuSITHETAI  PLANE. 

C 

CDMMuN/IHt  TA  C/ THETA 
CL'^MPN/  INTfc&ts/rt  14)  »DRDC  1 4) 

COMPLEX  ThFTAGC  1)  »R  GIVEMh.II, 

& 1 ML  TA  »k  t ORDC  » 

A G,PROU,SUM(4l  »CLEPUf  100)  tGv'UOO)  ,OEM  UJ) 

DATA  RT C/57. 29578/ 

C 

C 

C LAGRANGE  INTERPOLATION. 

C * C COS ( THETA/ KTO) 

21,  DO  22  1*1,4 

22  SUM! 1 1 * 0.0 
Of-  24  JG*  l *NG 
PL  on  - 1.0 

DO  23  J*  1 »NG 

If  (J  .EC.  JG)  GO  TC  23 

PROP  * PPnD*tC-CG(J)) 

23  CONTI NUf 

DO  24  1*1, A 

24  SUM <11  * SUM!  II +COF.PU,  JG)*PROO 
DC  25  1*1,4 

23  RU  ) = SUM  !) 

RFTUFN 


IMT IALI 2AT  ION  OF  LAGRANGE  INTERPOLATION  USING  INFORMATION  ON 
LOCATION  OF  GIVEN  VALUES  IN  COSITHETA)  PLANE. 
ENTRY  IMT  LG  I TII6T AG,NG) 

DO  31  JG*1,NG 

31  CGI JG  ) * CCJSI THFTAGI JGI/RTD) 

DP  34  JG=1 ,NG 

PROD  * 1.0 

ru  32  J*i,NG 

If  (J  .EC.  JG)  GO  TO  33 

PROD  * PPDD*(CG(JG)-CG<  J)) 

33  CONTINUE 

34  DfcMJG)  = PROD 
RETURN 


FURTLfP  INITIALUAUUU  -IF  LAGRANGE  INTERPOLATION  USING  INFORMATION 
ON  GIVEN  VALUES. 

ENTRY  SET  LAG  I NG  »R  GIVEN) 

DO  Hi  J C * 1 , NG 
DC:  41  1 = 1,4 

41  COE  FI  I, JG)  = R GIVEN! I , JG)/OtN( JO) 

RETURN 


c 

c 


bMSV  LAG  OfR 

C CC-<PUTAT  It'iN  OF  DER  1 VAT  l V ES  OF  INTERPOL  AT  FR  VALUES  w<U  CUS( THLTA) . 
C NO  EXACT  VALUES  OF  DKOC  ARE  USED, 

C THE  LAGRANGF  INTERPOLATION  FORMULA  ITSELF 

r.  IS  OIFFFRENT1ATED  WRT  COSITHETA). 

t * C CCS (ThETA/RTO) 

H(  oc  1=1, A 
t>*  St/MU  ) « 0.0 
N'GMl  * NG-i 
01.  oA  JA*1,NGM1 
JAP l * J A+ 1 
DU  6A  Jk*JAPi,N6 
PROO  « 1,0 
DG  oi  J*l,NG 

If  tJ  .Ft.  JA  .OR.  J .EG.  JBi  GO  TO  63 
PROD  * PRC-L'*(C-C3U)) 
a3  CcNTINUr 
00  oA  I = 1 » A 

oA  SU^Ul  * SuMm+PROD*(COEFU,  JAI+COEF  U , JB 1) 

DC  65  I *i » A 
65  DKLCt  I)  * SUM ( I ) 

Cu  TO 
C 

END 
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s : ?$T~'  ' - ,-^r 

SUBROUTINE  FZE&OS  ( TL  EFT , TRIGHT»T0OT»TT6p  * TMF SH* TUL  »MPR  I NT  , 

& zeros.nr  z) 

F.OR  R GOT  -F  INCFR 

PZERfS  IS  A ROUTINE  FOR  FiNuING  THE  ZEROS  OF  A COMPLEX  FUNCTION, 


F» 


C 

C 


w h l C H LIE  WITHIN  A SPECIFIED  RECTANGULAR  REGION  UF  THE 
COMPLEX  (IHETA)  PLANE » PROVIDED  THE  FUNCTION  HAS  NO 
POLES  IN  THE  VICINITY  OF  THE  RECTANGLE. 

EXPLANATION  (IF  PARAMETERS  — 

TLePT  - VALUE  OF  REAL  PART  UF  THETA  AT  LEFT  EDGE  OF  RECTANGLE. 

TF  IGril  - VALUE  OF  REAL  PART  OF  THETA  AT  RT  EDGE  OF  RECTANGLE. 

TBOT  - VALUE  OF  IMAG  PART  OF  THETA  AT  BOTTOM  EDGE  OF  RECTANGLES 

TT  OP  - VALUE  OF  IMAG  PART  OF  THETA  AT  TOP  EDGE  OF  RECTANGLE.  • 

TMFSH  - SET  EQUAL  TU  ABOUT  HALF  THE  AVERAGE  SPACING  BETWEEN 

ZEROS  WITHIN  THt  RECTANGLE.  A SMALLER  VALUE  MAY  BE  USEI 
AS  A SAFETY  MEASURE.  BUT  TOO  SMALL  A VALUE  WILL  RESULT  ; 
IN  EXCESSIVE  RUN  TIME. 

TCL  - TOLERANCF  TO  *HICH  ZEROS  ARE  TO  BE  FOUND.  IF  TWO 

ZEROS  ARE  CLOSER  THAN  *TOL"»  THE  ROOT -FINDER  WILL  STOP 
WITH  AN  ERROP  MESSAGE. 

MPRINT  - NORMALLY  SET  TO  ZERO.  A NGN-ZERO  VALUE  LEADS  TO 
PRINT-OUT  FOR  DEBUGGING. 

ZEROS  - OUTPUT  LIST  OF  (COMPLEX)  VALUES  OF  THETA  AT  WHICH 
ZEROS  ARE  FOUND. 

NR  Z - THE  NUMBER  Of  ZEROS  FOUND. 

SUBROUTINES  TO  bF  PROVIDED— 

FCT  VAL  (THETA, F)  - TO  RETURN  THt  VALUE  OF  THE  FUNCTION,  F, 

AT  THE  POINT  IN  THE  COMPLEX  PLANE  SPECIFIED  BY  *THETA». 

F DFDT  (THETA, F.UFDTI  - SAME  AS  'FCT  VAL*  EXCEPT  THAT  THE 

DERIVATIVE,  L'fDT,  OF  THE  FUNCTION  WRT  THETA  MUST  ALSO 
BE  RETURNEO. 


COMMON/ ZLS  COM/NR  ZT.NR  ZLS( IDO) 

COMMON/ TMC  CGM/TMESHC 
DIMENSION  ZEROS (2,1) 

COMPLEX  F.PRFV  F,FOO,FIO,POi»Fli, PARTS 
Cl  MENS! C N PART(2) ,SOL(2 ) ,THETA(2) 

DIMENSION  K EDGE1(50),K  EDuE2(30),K  EDGE3( 30) ,K  EDG£4< 50) 
EQUIVALENCE  ( PART (1) , PART S ) 


IF  (MPRINT  .NE.  0)  PRINT  906 
906  FORMAT  ( *1* ) 


it 


C 

c 


TMESHC  = TMESH 

SIDES  OF  RECTANGLE  IN  TMESH  UNITS 
JL1  = TLEFT/TMESH 
IF  ( TLEET  .GE.  G.O)  JLT  - JLT-1 
IF  (TLFET  .LT.  0.0)  JLT  * JLT-2 


JR  T = TRIGHT/TMESH 
IF  ( T P I GET  .GT.  0.0) 
IF  (TRIGHT  »L  6 . 0.0) 


JKT  * JRT+2 
JR  T = JRT+I 
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Jbiir  = Tf'GT/TMESH 


c 

c 


c 

c 


If 

(TROT  . 

GE.  0 

.0)  JBOT 

* 

J3  0T 

-1 

If 

IIFI.1  . 

LT.  j 

.0)  JrtOI 

» X 

JBOT 

-2 

JU 

:V  - no 

IP/TMESH 

IF 

IT  TOP  . 

GT.  J 

.0)  JTHP 

X 

JT0P*2 

IF 

C TUP  . 

LE.  0 

.0)  JTOP 

X 

JTOPU 

INITIAL.!  2 A T ION  OF 

PARAMETE 

KS# 

K I 

= JTC.-F 

KR 

* JLT 

KEL 

’Gt  = 1 

CALL  FIND 

F (KR 

,KI,F) 

NR 

FI  * 0 

NK 

E2  « C 

NF 

£3  * C 

N1- 

E4  * C 

NF. 

>T  * C 

NR 

ZL  * C 

NR 

L * 0 

LO 

IF 

INF  ZL 

.eg. 

0)  GO  TU 

10 

NR 

ZL  SI  NR 

Z)  * 

NR  ZL 

NR 

ZL  = 0 

20 

PP? 

V F = F 

IF 

(NR  ZL 

.GT. 

l)  PRINT 

9*0, NK 

ZL 

*20 

FPPMAT  CO 

M3, 

IX, 'MODES  FOUND 

ON 

NR 

ZL  = C 

GO 

TO  (2  It 

26,31 

,J6) , KEDGE 

SEARCH 

ALONG 

LEFT 

EDGE  OF  1 

RECTANGLE 

2 1 

IF 

1 K I .EC 

. JBOT } KfcDSc 

X 

2 

IF 

( K EDGE 

• EC. 

c)  GO  TO 

2o 

Kl 

= K I - 1 

CALL  FINE 

F I KR 

»K  I , F) 

IF 

1 1 A I NAG 

(PREV 

F)  ,GT. 

0. 

0 .AND. 

$ 

.UR. 

(A1MAG(PREV 

F) 

.LT 

i 

GO  TO 

20 

IF 

(NR  El 

.£0. 

0)  GO  TU 

23 

DO 

22  K = l, 

NR  El 

IF 

(KI  . EC 

. K E 

DGEi(K) ) 

GU 

TO 

20 

• 22 

CONTI  NUF. 

Zi 

F01 

= PREV 

F 

FOO 

= F 

LI 

= KI 

LF 

* JLT 

GO 

TO  A3 

SAME  PHASE  LINE' ) 


FOR  SIGN  CHANGES  IN  IMAG(F). 


AIMAG(F)  tGT.  0.0) 

, 0.0  .AND.  AIMAGIF) 


.IT.  0.01) 


f. 

C 


SEARCH  ALCRO  BOTTOM  EDGE  OF  RECTANGLE 
26  IF  (K«  . FU.  JPTI  KEDGE  = i 
IF  (KECGE  .Fw.  3)  GO  TO  Jl 
KP  = KRfl 


FOR  SIGN  .CHANGES  IN  I MAG  ( F ) 
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CALL  FIND  F UR,M,FJ 

IF  ((AUAGtPREV  FI  .GT  . U.U  .AND.  AIMAG(F)  .GT.  0.0) 

$ .UR.  (A  I MAGI  PREV  F)  .LT.  0.0  .AND.  AIMAG(F)  .LT.  0.0)1 

$ GG  TO  20 

IF  INK  tc  .60.  0)  GO  TG  2d 
DO  27  K = i » NK  £2 

IF  IKR  .FO.  K ECGE2IK) I GU  TO  20 
27  CONTINUE 
2t  FOO  *■  PR F V F 
FLO  ■ F 
LI  = JBC T 
LF  = KR-1 
GO  TO  46 
C 

C SEARCH  ALONC  RIGHT  EDGE  OF  RtCTANGLE  FOR  SIGN  CHANGES  IN  IMAG(F). 
il  IT  IK  I . FO.  JTOP)  KEOGE  = 4 
IF  (KEDbfc  .EO.  4)  GO  TO  30 
K I = K I +- 1 

CALL  FIND  F (KR»M,F| 

IF  ( ( A I MAGI  PR tV  F)  .GT.  0.0  .AND.  AIMAG(F)  .GT.  O.J) 
i .OR.  (AIMAGtPREV  F)  .LT.  0.0  .AND.  AIMAG(F)  .LT.  0.0)1 

$ GO  TO  20 

IF  (NR  1 3 .EQ.  0)  GU  TO  33 
DU  32  K = 1 » NR  EJ 

IF  (Kl  .EO.  K EUGE3IK))  GO  TO  20 

32  CONTINUE 

33  F 1 0 = PPEV  F 
FU  = F 

LI  = KI  - 1 
LK  = JRT-1 
GO  TO  53 
C 

C SEARCH  ALONG  TOP  EDGE  OF  RECTANGLE  FOR  SIGN  CHANGES  In  I MAGI F) • 

36  IT  (KR  .EQ.  J LT  J GO  TO  60 
KK  * KR- 1 

CALL  FIND  F ( KR  »K I » F) 

IF  HAIRAGIPREV  F)  .GT . 0.0  .AND.  AIMAGIF)  .GT.  0.0) 

$ .OR.  (AIMAGIPREV  FI  .LT.  0.0  .AND.  AIMAG(F)  »LT  • 0.0)1 

$ GO  TO  20 

IF  (NR  E4  .EQ.  0)  GO  TO  38 
DO  37  K=1,NR  E4 

IF  (KR  .FQ.  K E CG E4 ( K ) ) GU  TO  20 
3 7 CONTI  MU F 
38  FU  = PPEV  F 
F01  * F 
LI  = JTCP-1 
IR  = KR 
GU  TO  58 


FNTFF  MESH  SQUARE  FROM  LEFT  SIDE  OR  EXIT  RECTANGLE  AT  RIGHT  EDGE. 
41  L6  = L.R  + 1 

If  ( L P.  .If;.  JRT-1)  GO  TO  42 
NR  F'3  = Nr<  E3  + i 
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; 

k 

> 

£ 

i 

■> 


); 


s 


K fiM,F3(N’P.  F3)  * II +1 
IF  (MPK1NT  .NE.  0)  PRINT  WO 
GP  TJ.  10 
-tc.  fd  - r 1 1 
fco  - f 1C 

1 3 (.All  F INC  F (LR+1 tLI+lt Fill 
CALI  FINC  F (LR+1 ,LI*F10) 

Lfu^l  = l 
I N 7 FI-  R - o « 0 

ENTER  I = -A1MAG(F00)/AIMAG( FOl-F  iO) 

Gl*  TO  60 
C 

C ENT E k MFSH  SQUARE  *-ROM  BOTTOM  SIDE  OF  EXIT  RECTANGLE  AT  TOP  EDGE. 
4b  II  = L I ♦ 1 

If  (LI  .LE.  J TOP-1 ) GO  TO  47 
Nk  E4  = NR  F4+1 
K E0GE4INR  E4>  * LR 
IF  ((PRINT  .NE.  0)  PRINT  W 0 
Gb  TC  10 
4?  FOC  = FOl 
F 10  * F 1 1 

48  CALL  FIND  F (LR,LI  + 1,F0U 
CALL  FIND  F ( LR+i »L 1+1 ♦ Fi U 
LEJ3F  = 2 

ENTER  R « -AIMAG(FOO)/AIMAG(FIO-FOO) 

ENTER  I * 0.0 
GL  TO  60 
C 

C ENTER  MESH  SQUARE  FROM  RIoHT  SIDE  UR  EXIT  RECTANGLb  AT  LEFT  EDGE. 

51  LF  * LR-1  -• 

IF  (LR  .GF.  JLT ) GO  TO  52 
MR  El  = NR  El+1 
K EDGFUNR  El)  = LI 
IT  ( M PR  I NT  .NE.  0)  PRINT  >90 
Go  TO  10 

52  Fll  = roi 
FIG  = FCO 

53  CALL  FINC  F ( LR tL I + 1 , F 01 ) 

CALL  FINC  F CLR,H,FOO) 

LEDGE  = 3 

ENTER  R = 1.0 

ENTER  I - -AIMAG( F10)/AIMAG( Fll-FiO) 

GO  TU  60 
C 

C ENI F c MESH  SQUARF  FROM  TOP  SIDF  OR  EXIT  RECTANGLE  AT  BOTTOM  EDGE 
5o  LI  = L I - 1 

IF  (LI  ,CE.  JBQT ) GU  TO  57 
NR  ff2  = NR  E2  + 1 
K EDGE 2 (N'R  E2 ) = LR+1 
IF  ((‘PRINT  ,NF.  0)  PRINT  990 
GU  TO  10 
57  FOl  = FGC 
rll  = F1C 


ss 

i 

| 

,2§ 

;S: 


M 

J. 

■Vi 


£ 


.3 


4 


J 


,*Sts 


;1 

.v 


* 

M 
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58  CAl  l FINC 
CALL  FIND 
LEDGE  = 9 
t’MfP  o = 
ENTER  1 = 
GL  TO  6 0 


F (LR  ,L  I » F00) 

F (LR*1,LI,F10) 

-«IMaL(F01)/AIMAG( FLi-FOi  ) 

1.0 


F PH  DEBUGGING  ONLY,  PRINT  CU-GKOINATE  OF  LOWER  LEFT  CORNER 

OF  CURRENT  MnSH  SQUARE.  RESULTING  SET  OF  PRINTED 
CO-ORDINATES  GIVES  TRACE  OF  EACH  LINt  ALONG  WHICH 
I MAGI F) =0  .0  FROM  ITS  ENTRY  UN  THE  EDGE  OF  THE 
RECTANGLE  TO  ITS  EXIT  AT  ANOTHER  ’01  NT  ON  THE 
RECTANGLE. 

b 0 IF  IMPRINT  ,NE.  01  PRINT  96Q,LR,II 
960  FORMAT  (•  ',20X,2I5) 

TEST  FOR  THERE  BEING  TWO  (HYPERBOLIC)  LINES  ENTERING  AND  LEAVING 
THE  MESH  SQUARE  ALONG  EACH  OF  WHICH  1MAG(F)*0.0 
IF  SO,  SET  * L TWU*  NON-ZERO. 


L TWO  = C 


IF  ((AIMAG(FOO) 

.GT*  0.0  * 

AND.  A IMA 

G(H11) 

. v?  T . 0 . C 

4>  .AND. 

AIMAG(FIO) 

.LT.  0.0 

.AND. 

AIMAG(FOl) 

.LT. 

G.O) 

S .OK. 

(AIMAG(FOO) 

• L T . 0 ♦ 0 

.AND. 

AIMAG(Fli) 

.LT. 

0.0 

$ .AND. 

A IM  AG( F10) 

•GT.  0.0 

.AND. 

AIMAG(FOl) 

.GT. 

0.0)) 

i LTWO  = 1 

TEST  FOR  THERE  BEING  AT  LEAST  ONE  (HYPERBOLIC ) LINE  ENTERING  ANO 
LEAVING  THE  MESH  SQUARE  ALONG  WHICH  REAL(F)*0.0 
IF  NOT,  SET  • 1 90 ' TO  ZERO. 


$ 

$ 

i 

i 


190  = 1 

IF  UREAUFOO) 
.AND. 
.OR. 
.AND. 
190  * 

IF  (1  TWO  .EQ.  0 


.GT.  0.0  .AND.  REAL ( FLO ) .GT.  0.0 
REAL(FOi)  .GT.  0.0  .AND.  REAL (FI 1 ) .GT.  0.01 

(REAL( FOOT  .LT.  0.0  .AND.  REAL (F 10)  .LT.  G.O 

REAL ( F01 ) .LT.  0.0  .AND.  REAL (Fill  .LT.  0.0)) 

0 

.AND.  190  .EQ.  0)  GO  TO  70 


M 

i 

i 

I 

)■; 


C DM PUT AT ICN  OF  COEFFICIENTS  TO  BE  USED  IN  DESCRIBING  THE  VARIATION 
OF  THE  FUNCTION  WITHIN  A MESH  SQUARE  GIVEN  THE 
VALUES  AT  THE  CORNERS  OF  THE  SQUARE  AND  LINEAR 
VARIATION  ALONG  ITS  EDGES.  ALSO,  THE  POSITION  OF 
CROSSING  OF  THE  HYPERBOLIC  ASYMPTOTES  (WHICH  ARE 
PARALLEL  TO  THE  SIDES  OF  THE  SQUARE)  FOR  THE  LINES 
1MAG( F) *0 ,0  ARE  COMPUTFD  IF  BOTH  LINES  (BRANCHES) 
ENTER  AND  LEAVE  THE  SQUARE. 

PARTS  * FOO 
AP  = PAR  T ( 1 ) 

A I = PA  R T ( 2 ) 

PARTS  = FOl-rUO 
BP  = PART ( 1) 

B 1 * PA  R T ( 2 ) 

PARTS  = FIG-FOO 
Ck  = PAR  T ( 1 ) 

Cl  = PA  P T ( 2 ) 

PAPTS  = FOQHFl 1-FOI-FIO 


I 

5 


•V 


A 
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PR  - PA-TU) 

01  = PAR  TUI 

11  (UWi  .(  <J.  0 1 G- 1 TP  6 1 
H-MK  R 3 -BI/DI 
Cf  NT**  1 = -CI/DI 
ir  U90  .EC.  0)  GU  TO  70 

bi  Ab  = 

At  = AR*C I -A I *CR 
AD  =*  AP*CI-AI*DR 
EC  3 BP  *C  I -Bl  ♦CP 
BD  3 BP*ni-BI*OR 
CD  * CR*CI-Ct*DR 

IB  (AB$(8D)  .IT.  ABSf  C D) ) GQ  TO  64 
SOLUTION  FOR  t wO  POSSIBLE  PUNTS  AT  WHICH  THERE  MAY  BE  CROSSINGS 

OF  THE  (HYPFkBOLIC)  LINES  R£AL(F)*0.0  AN J IMAGiF)*0.0 
A CROSSING  PU1NT  IS  CHOSEN  TO  BF  A ZERO  OF  THE 

rUNCTION  IB  IT  LIES  WITHIN  THE  CURRENT  MESH  SQUARE 
AND  IB  IT  LIES  ON  THE  BRANCH  OF  lMAGtF)*J.Q  CURRENTLY 
BEING  FOLLOWED.  MULTIPLE  CROSSINGS  ALONG  THIS  BRANCH 
(ACTUALLY  A SERIES  OF  CONNECTING  HYPERBOLIC  BRANCHES  I 
IN  THE  SAME  uR  IN  DIFFERENT  SQUARES  ARE  NOTED  SINCE 
THESE  MUST  LATER  BE  RESOL VEU. 

A 3 CO 

b 3 ( A C - BC  ) *0  . 5 
C * AB 

CALL  QU/C  ( A t 8 » C » SOL»NR  SOL) 

IF  (NR  SCL  »fc  Q.  01  GO  10  70 
DC  6J  N 3 1 » NR  SOL 
UREAL  3 SCL(N) 

IF  (UREAL  .LT.  0.0  .OR.  UREAL  .GT.  1.0)  GO  TO  t3 
01  3 3R+CR*UREAL 
C 2 3 B I +C I *UREAL 

IB  ( A8S ( T I ) .GE.  ABS(DZ))  UIMAG  3 - (AR*CR*URE AL ) /Ol 
If  ( A BS ( C2 ) .GE.  ABS(DI))  UIMAG  3 - (A  I +CI*URE AL ) /D2 
IF  (UIMAG  .LT.  0.0  .OR.  UIMAG  .GT.  1.0)  GO  TO  c3 
If  ( L TwC  • EQ.  0)  GU  TO  o2 

IF  ((ENTER  R-CENTR  R)*CU  REAL-C ENTR  R)  .LT.  0.0 
$ .OR.  (ENTER  I-CENTR  I)*(U  IMAG-CENTR  1)  .LT.  0.0) 

S GO  TO  o3 

02  ThETA(l)  3 (LR+U  RE AL) *TMESH 
THETA  (2 ) 3 (U  + U IMAG)*TME$H 

IB  ( K PP  I NT  .NE.  0)  PRINT  962  »LR  ,L  I , THETAU)  ,THE  TA{  2) 

962  FORMAT  (*  ♦ ,2I4t3X. 'THETA  =»,2F9.4) 

NP  ZT  = NR  ZT  + l 

ZEROSIl  ,NR  ZT)  3 THETAU) 

ZtR OS ( 2 t NR  ZT)  3 THETA( 2 ) 

IF  (NR  ZL  .EQ.  01  NR  Z 3 NR  Z+i 
NR  ZL  3 NR  ZL+L 

03  CONTINUE 
GO  TO  67 


I 


C 

C ALTERNATE  SCLUTI  ON  FOR  THE  ABOVt.  TWO  FORMS  ARE  NEbOED  SINCE* 

C IN  ANY  GIVEN  CASE*  EITHER  FORM  ( 8UT  NUT  BOTH  FORMS) 

C MAY  ;H  INDETERMINATE. 

t)A  A as  ? u 

3 = ( A0+PC)*0.5 
C * AC 

CALL  QUAD  (A*B*C*SOL*NK  SL 
If  I NR  SCL  »EQ.  0)  GU  TO  7J 
Df  66  \s  1 * NR  SOL 
UIMAg  * SOL (N ) 

IF  (UIMAG  .LT.  0.0  .OR.  UIMAG  .GT.  1.0)  GO  TO  u6 
D1  = CR+CR*UIMAG 
02  = C I +CI  *U  IMAG 

IF  4 ASS C CL ) .GE.  A8S(D2))  UREAL  = -<AR+8R*UIMAG)/Dl 
If  (A8SIC2)  .GE.  AR  S( Dl ) ) UREAL  * - 4 A I +8I*UIMAG ) /D2 
If  (UREAL  .LT.  0.0  .OR.  UKFAL  .GT.  1.0)  GO  TO  66 
If  (ITWC  .EQ.  0)  GO  TO  o& 

IF  ((  ENTER  R-C>:NT K R)*(U  REAL-CENTR  R)  .LT.  0.0 
i .OR.  (ENTER  I-CENTR  I)*(U  IMAG-CENTR  1)  .LT.  O.Oi 

% GO  TO  66 

65  THETA (1)  = (LR+U  REAL) *TMESH 
THE TA ( 2 ) = (LIHU  IMAG) *TMESH 

If  IMPRINT  .NE.  3)  PRINT  965*LR*L I , THETAt 1 ) ,THfcTA( 2) 

V65  FORMAT  ('  • ,2  !4  ,'JX,  ‘THETA  *»,2FV.4) 

NK  ZT  = NR  ZT  + 1 

ZEROS  ( l * NR  ZT)  = THETA  ( 1 ) 

ZEROS ( 2 * NR  ZT)  = TH  ETA ( 2) 

IF  (NR  ZL  .EQ.  0)  NR  Z = NR  Z+l 
NR  ZL  * NP  ZL+l 

66  CONTINUE 

67  CCNTINUf 
C 

70  CONTINUE 

C TEST  FOR  EXIT  FROM  LEFT  EDGE  OF  MESH  SQUARE. 

IF  (LECGf  .EQ.  1)  GO  TO  72 

IF  ((AIMAG(FOO)  .GT.  0.0  .AND.  AIMAG(FOl)  .GT . 0.0) 

$ .OR.  (AIMAG(FOO)  .LT.  0. 0 .AND.  AIMAG(FOi)  .LT.  0.0)) 

$ GO  TO  72 

IF  ( L TWO  .EQ.  0)  GJ  TO  51 
EXIT  R = 0.0 

EXIT  I = -AIMAG(F00)/AIMAG(F01-F00) 

IF  ((ENTER  R-CFNTR  R)*(EXIT  R-CENTR  R)  .LT.  0.0 
$ .OR.  (ENTER  I-CENTR  I)*IEXIT  I-CENTR  I)  .LT.  0.0) 

$ GO  TO  72 

GG  TU  51 
C 

C TtST  FOR  EXIT  FROM  BOTTOM  EDGE  OF  MESH  SQUARE. 

7c  IF  (LF.DGF  .EQ.  2)  GO  TO 

If  ( ( A I V AG { FOO)  .GT.  0.0  .AND.  AIMAG(FIO)  .GT.  0.0) 

!■  .UR.  (AIMAG(FOU)  .LT.  U.O  .AND.  AIMAG(fiJ)  .LT.  U.O)) 

i GO  TO  l j 

IF  (l  TWO  .F-0.  0)  GO  TO  jb 
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EXIT  R * -A IMAG ( FOO )/A l MAG( FlO-FOO) 

exii  i = o. o 

If-  ((ENTFR  R-CFNTR  P)*(EXIT  R-C  ENTR  K » .LT  • 0,.0 

* .OK.  ( CNT  Ek  1-CENTs  I )#( E XI T I-C»=NTR  I)  .IT.  C.OJ 

S GO  TJ  73 

Gl  Tl!  Sfc 
C 

C T = 9T  r ilk  EXIT  FROM  RIGHT  EDGE  OF  MESH  SQUARE. 

73  K (LEDGE  .EQ.  3J  GU  TO  74 

It  ( < A I MAG  C F10)  .GT.  0.0  .AND.  AlMAGt Fll)  .GT.  O.OJ 
i .OR.  (AIMA3(F10J  .LT.  0.0  .ANO.  AIMAG(Fli)  .LT.  U.O)) 

i GO  TO  74 

IF  a TWO  .EQ.  0)  GO  TO  41 
EXIT  R - 1.0 

EXIT  I = -AIMAG(F10)/A1MAG( Fll-FIQ) 

IF  (( ENTER  R-CGNTR  Rl * 4 EX  IT  R-CENTR  R ) .LT,  0.0 
i .OR.  (ENTER  I-CENTR  I)*(EXIT  I-CENTR  1)  .LT.  O.Ol 

i GO  TO  74 

GL  TT  41 
C 

C TEST  FOR  EXIT  FROM  TOP  EDGE  OF  MESH  SQUARE. 

74  If  (LEDGE  .EU.  4)  GO  TO  90 

IF  ( ( A I MAG ( F01)  .GT.  0.0  .ANO.  AIMAG(Fll)  .GT.  C.Oi 
$ .Ok.  (AIMAG(FOi)  .LT.  0.0  .AND.  AIKAG(FU)  .LT.  0.0)) 

* GU  TO  90 

IF  (1 TwC  .EQ.  0)  GU  TO  46 

EXIT  R = -AIMAG(F01)/AIMAGIFU-F0l) 

FXIT  I * 1.0 

IF  ( ( FNTER  R-CENTR  k)*(EAIT  R-CENTR  R)  .LT.  O.G 
t .OR.  (ENTER  I-CENTR  I)*(EX1T  I-CENTR  I)  .LT.  0.0) 

$ GU  TO  90 

GO  TC  4fc 
C 

SO  IF  ( \ R 2 .NE.  0)  CALL  Nu  MESH  ( TMFSH* TOL t KPR I NT 1 2 EKUS »NF  l) 

Ft  TURN 
C 

90  PRINT  9C9,lR»LI 

909  FORMAT  («C*»'NO  EXIT  FROM  MESH  SQUARt»,2U) 

STOP 

C 

950  FORMA  T ( *0'  ) 

C 

fcNO 
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SUBROUTINE  WUAO  ( A ,B,C , SOL »NR  SOU 
C PfV  EOnT  -F  I NDLR 
C 

C SULUT I Oft  H.R  THE  REAL  ROUJb  OF  A QUADRATIC  EQUATION  OF  THE 
C FOKM  A*X**2+2.0*b*X+C=0.0,  WHERE  X IS  CAcLED  ‘SOL* 

f.  IN  THIS  ROUTINE.  THE  NUMBER  OF  REAL  ROOTS  FOUND  IS 

C GIVEN  BY  »NR  SUL*.  A VALUE  OF  I FOR  'NR  SOL*  RESULTS 

C FROM  THE  QUADRATIC  EQUATION  APPROACHING  LINEARITY. 

C USFD  BY  SUBROUTINES  F2FRGS  AND  NO  MESH. 

C 

• DIMENSION  SOL (2) 

C 

C 

AtOBSQ  = A*C/B**2 

IF  (ABS  ( AC08SQ)  .LT.  0.3)  GO  TO  20 
C 

ARG  = b**2-A*C 
NR  SOL  = 0 

IF  (ARG  .IT.' 0,01  RETURN 

NR  SOL  = 2 

ROOT  * SCRT(ARG) 

SOL { l I = ( -B+ROCT I /A 
SOL  (2)  *.  (-B-ROC)T)/A 
RETURN 
C 

20  TEFM  = i.o 
SUM  = l.C 

DO  21  K*l,50 

TERM  = TERM*( (K-0.5  J/l  M-l.O) )*ACOBSQ 
SUM  * SUM+TERM 

IF  ( A BS ( TERM)  . L T . l.OE-lUJ  GO  TO  22 

21  CONTINUE 

22  SUK1)  = -C/ ( 2 • 0*9)  *SUM 
NR  SOL  •-  l 

II-  ( ABS  ( A/  ( 2 .0*0 ) ) .LT.  1.0E-30)  RETURN 
NR  SOL  = 2 

SOL ( 2 ) = -2.0*B/A-S0L<1) 

RETURN 

C 

END 
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SUtiPUUTIKE  FIND  F CJR,JI,F) 
f F f:k  FOOT -FINDER 
C 

CIMkjN/IK  CPK/TMESh 
DIMENSION  PART(2) 

COMPLEX  F » THET A f PAR  TS 
EQUIVALFNCE  ( PART  ,PARTS J 
C 

c 

PARTI  1)  = Jk*TMESH 
PART  I 2)  * J!*TMESH 
THETA  * PARTS 
CALL  FCT  VAL  (THETA, F) 
PfcTUPN 
C 

END 


r 

C 

r 

r 

C 

C 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 

c 

c 


SUb SCUT  I NE  NO  MESH  (TME Sh  »TOL  »MPR l NT , ZEROS » NR  Z) 

F O'  POOT -FINDER 

ROUTINE  FOR  FINDING  EXACT  ( lit  THC  SENSE  OF  NO  MESH  APPRUX1 MA  T l ON ) 
LQCAT 1 INS  JF  ZEROS  UP  THE  FUNCTION,  F,  F JR  WH ICH 
A COMPLETE,  BUT  APPROXIMATE,  SET  «A  S FOUND  IN 
SUBROUTINE  FZERUS. 

TWO  DEFICIENCIES  REMAIN  IN  THIS  ROUTINE.  ONE  IS 
THAT  ZEROS  CLOSER  THAN  ThE  FINITE  VALUE  TJL*  CANNOT 
cE  RESOLVED.  THIS  HAS  CAUSFD  A PROBLEM  A FEW  TIMES 
IN  USAGE  TO  DATE,  BUT  HAS  A!. WAYS  BEEN  RESOLVED  BY 
USING  A SMALLER  VALUE  OF  ‘TOL*.  THE  SEuJND  PROBLEM 
IS  THAT  THE  RESOLUTION  OF  'MULTIPLE  CROSSINGS', 
aHICH  OCCUR  BECAUSE  OF  THE  NON-ANAL ITICI TY  OF  THE 
MESH  APPROXIMATION,  IS  SUCH  THAT  IN  PRINCIPLE  A 
ZERO  CAN  BE  MISSED.  THERE  IS  NO  EVIDENCE  THIS  HAS 
EVER  OCCURRED  IN  PRACTICE.  IT  MAY  OR  MAY  NOT  BE 
COST  EFFECTIVE  TO  DEVELCP  ThE  PROGRAM  FORTNER  TO 
CORRECT  THESE  TaO  PROBLEMS. 

COMMPN/ZLS  COM/NR  ZT.NR  ZL$( 10J) 

DIMENSION  PART ( 2) , SOLIZ) 

COMPLEX  ZEROS  III, 
i THETA, 

* F » DFDT , OELT , 

* PAPTS, 

i ZEROS OI 100) » TMIN, 

$ ATEMP  ,'3TEMP,CT  EMP.DTEMP, 

S F ARRAY (•+,<♦)  , FOO,FOl,FiO,F  11 

EQUIVALENCE  I PART  ( I ) , PARTS  i 


IF  IMPRINT  .NE.  0)  PRINT  9J0 

900  TGPMAT  I • 1 • ,' ITERATIONS  TO  REMOVE  MESH') 

NS  = 1 

NFwTCN-RAPHSON  (FIRST-ORDER)  ITERATION  TC  FIND  EXACT  LOCATIONS 
CF  THE  ZEROS  OF  F. 

DO  29  JZ=1 ,NR  ZT 
ZEROSOIJZ)  * ZEROS! JZ) 

IF  IMPRINT  .NE.  0)  PRINT  901, JZ 

901  FORMAT  (•  ',18) 

21  IF  IMPRINT  .NE.  0)  PRINT  902 , Z EROS  I JZ ) 

902  FORMAT  ('  ' , 10X  ,2  I F9 .4 ) ) 

THETA  = ZEROSUZ) 

CALL  F DFDT  ( TH ET A , F, DFDT  ) 

Ot.LT  = -F/DFDT 
Zf  ROS ( JZ  ) = Z ERGS  I J Z ) +DELT 
IF  (CARS! OELT ) .OT.  J.3*T0L)  GO  TO  21 
29  CONTINUE 

NUMBER  OF  GNICut  ZEROS  COMPARED  TU  TUTAL  NUMBER  MINUS 
MUITIPLICITY  DUE  TO  MULTIPLE  CROSSINGS. 


« 


A/1A 


r>  T-(  ~ , J , , 


1 

3C  If  (NP  ZT  .Fix.  1)  RETURN 
JZ  * 1 

DO  3?  J*2,NR  ZT 
MATO  ='  C 

jmi  = j-i 
DO  3-  J J® 1 » JM  1 

If-  (L  APS ( ZEROS  ( J f -Z  EROS  ( JJ ) ) .GT.  TOL)  GO  TO  3*. 

IF  (SPRINT  ,NE.  01  PRINT  905,J,JJ 
905  FORMAT  ( *0 * » * ZEROS  NR* , 1 3, IX, 'AND* . 13, IX, 

% • AH  E THE  SAME*  I 

MATCH  * 1 

32  CONTINUE 

IF  (MATCH  . Nf* . 0)  GO  TO  3a 
JZ  = JZ  + l 

ZfckOS(JZ)  ® ZEROS ( J ) 

33  CONTI  NUT 

IF  (JZ  .EO.  NR  /)  RETURN 
If-  (jZ  .IT.  NF  Li  Gu  TO  50 
PRINT  947,JZ»NR  L 

947  FORMAT  ( 'O' ♦'WARNING--'  ,13,  LX,  ‘ZEROS  FOUND  ON*, 13, IX, 
i 'PHASE  LINES' ) 

NR  Z ® JZ 
RETURN 

THE  FOLLOWING  LOGIC  IS  NEEDED  ONLY  OCCASI JNALLY»  NAMELY,  WHEN 
TEST  INDICATES  THAT  A aEKO  HAS  BEEN  MISSED  IN  THE 
INITIAL  NEwTUN-RAPHSON  ITERATION.  IT  ALLOWS  FOR 
STEP-WISE  CHANGE  IN  THE  FORM  OF  THF  FUNCTION  FROM 
THE  MESH  APPROXIMATION  TO  THE  EXACT  FORM. 

50  NS  * NS  *2 

If  (NS  .GT.  16)  GO  TO  90 

cr  55  JZ=1,N«  ZT 

IF  (MPMNT  .ME.  0)  PRINT  90l,JZ 

ZcROS(JZ)  ® ZEROSO(JZ) 

DO  58  K=l, NS 

FN  FRCT  ® FLOAT(K)/FL0AT(NS) 

FM  FPCT  = 1.0-FN  FRCT 

51  TFETA  » ZEROS (J li 

IF  (MPRINT  .NE.  0)  PRINT  902,ZER0S( JZ) 

CALL  F DFDT  (THETA, r,DFDT ) 

IF  (N  .EC.  NS)  GO  TO  5u 


JRO  = REAL(THETA)/TMESH 

IF  ( k E AL ( THETA)  .LT.  0.0)  JRO  = JRO-1 

J10  = A IMAG(THETA)/TMESH 

IF  (A IMAG( THETA ) .LT.  0.0)  JIO  * JIO-1 

DC  52  JPL0GP=i,4 

DO  32  J I LOOP®  1,4 

JP  * JFC  + JPL00P-2 

J1  = J 1 0+J I LOOP -2 

52  CALL  F I N'C  F ( JR  , J I , FARRAY  ( JRLUOP,  J I LOOP ) ) 


! 


! 

i 

i 


C 


c 


c 


’I 


DN'IN  * 9.9E9 

DO  07  JPLfCP=l,i 

DC  67  JlLi.tP=i,3 

FUO  - F APRAYl JRLOGP  » J ILOOP I 

FOl  * F A PR  AY ( JR LOOP  * J I LGCP+1 ) 

FIO  = FARPAYl  JRLOGP+lt  JILGOP) 

HI  * FAFPAYl  JRlOtiP  + l,JlLtiUPfil 

JR  = JRO+JFLHOP-2 

J1  a J tO+J ! LOOP -2 

RfFK  = REAL (ZEROS ( JZ) )/TME$fi-JR 

REP  l - AlMAG(ZEROS( J2))/TMeSH-Jl 

ATEMP  * FOO 

BTGMP  = FOl-FOO 

CTEMP  = FlC-FOO 

D1EMP  * FOO+F li-FOl-FIG 

PARTS  * (ATEMP+8TEMP*KEFH-CTFMP*REFP+OTEMP*REFR*REFi)*FM  FkCT 
> +f * FN  FRCT 

AF  = PART(l) 

A l * PART(2) 

PARTS  a ( 8TEMP+DT EMPIRE FR ) *FM  FRCT+DFDT*( O.Ot 1. Oi *FME SH*FN  FRCT 
BK  a PARK  n 
81  = PA  R T ( 2 ) 

PACTS  * (CTFMP+LTEMP*PEFI  )*FM  FRCT+DFDT*TMFSH*FN  FRCT 
Ch  = PAR  T ( 1 ) 

(.1  * PART  (2) 

PARTS  * CTEMP*FM  FRCT 
Dk  » PARTI U 
DI  a P A R T ( 2 ) 


| 

'M 


% 4 


-% 

M 


il 


jy 


1 


Ab  = AR  *6 l -A  I *8k 
AC  * AR*CI-AI*CR 
AD  = AR  *C  I -AI *DR 
K = B«*C!-Bl*Ck 
BD  = 9R*CI-Bl*DR 
CD  = CR*CI-Ci*OP 


4- 


% 


IF  (ABS(an)  .IT.  ABS(CU))  GO  TO  o*  j 
A = CD  • • I 
P a ( AO-BC ) *0 • 5 I 
C = Ab  I 
CALL  QUAD  ( A , 3 , Ct SOL, NR  SOL)  . j 
IF  (OR  SOL  .10.  0)  GO  TO  67  1 
nr  6fc  N*1,NR  SOL  J 
OFFAL  = SDL (N ) | 
IF  (ORE AL+REFR  .LT.  -0.030  .OK.  UREAL+REFR  .GT.  l.viiO)  GO  TD  62  j 
Dl  = BR+Ck*UKEAL 

D2  = 8 1 +C 1 AUREAL  ' I 
If  (ABS(Cl)  .GE.  ABS(D2))  UIMAG  = - (AR *CP *URE At ) /Dl  1 
IF  (ABS(C2)  .CE.  ABS(DU)  UIMAG  a - (A  I +CI  ♦UREAL  I /D2  '*>3 
IF  (Li  1MAC-  + REFI  .LT.  -O.oOA  .OR.  UlMAO+REFI  .OT.  l.JOS)  GO  TO  62  I 
PART(l)  a (JR4-UREAL+RGPR.  )*TMCSH  ' 1 
PA  h T ( 2 ) a ( JI+UlMAG+kEr 1 )*TMESrt  j 


THETA  « PA^TS 

DI ST  « CASSITHETA-ZCROSUZU 
If  (f  1ST  .GT.  DM  N)  GO  TO  62 
OMIN  « CIST 
TM1N  * THETA 
o2  CONTINUE 
GO  TO  67 

A'*  A * £•  P 
' 3 * ( AD+BC )*0«5 

C * AC 

CALL  OUAC  <A,B,C»SOL,NR  SOU 
If  CNR  SCL  .£0.  01  GO  TO  to 7 
DO  66  N*lf  NR  SOL 
UIHAG  * SOL (N) 

IF  CUIMAGHREFI  .LT • -0.030  .OR.  UIMAG+REFI  .GT.  i.030)  GO  TO  66 

01  * CR*CR*UIMA6 

02  * CUC!*UIMAG 

IF  CABSCm  .GE.  A8SC02))  UREAL  * - IAR«-BR*UlMAG> /Oi 
If  IA3SIC2J  .GE.  ABSIDli)  UREAL  * - IA l +81 *UIMAG ) /D2 

if  cure al+refr  .lt.  -0.003  .or.  ur.eal+refr  .gt.  i.jo3)  gc  to  66 
PARTI  1)  * (JRHJREAL+REFRWMESrt 
PARTI  2)  * I Jl+U IMAG+REf I ) *TME$H 
THETA  * PARTS 

01  ST  * CAttSITHcTA-ZEROSCJZU 
IF  ID  1ST  .GT.  OMNI  GO  TO  06 
OMIN  = CIST 
THIN  * THETA 

66  CONTINUE 

67  CONTINUE 

IF  (OMl N .GT.  9.0E9)  GO  TO  95 
CELT  * TMIN-ZLRGS  ( J Z I 
ZEFOSIJZ)  * TMIN 

If  CCABS(OtLT)  .LT.  9.0,**TMESm)  GO  TO  57 
GO  TO  51 

5u  DELT  = -F/DFDT 

ZEROS (JZ)  = ZtRGSCJZH-DELT 
IF  (CABSIOELT)  .LT.  0.3*TUU  GO  TO  57 
GO  TO  51 

57  IF  IMPRINT  .NE.  U)  PRINT  907 
907  FORMAT  (*0*l 
56  CONTINUE 
59  CONTINUE 
GO  TO  30 

9 j PRINT  99G#  JZ*NR  Z 

>90  FORMAT  I *0« , 1 ONLY • * 1 3 1 IX t ' ZEROS  FOUND  ON* » 1 3, IX » • PHAS E LINES*  J 
STOP 

9 5 Pi,  I NT  995 

995  FORMAT  { *0 *.* PROBLEMS  IN  SUBROUTINE  NO  MESH') 

STOP 
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